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FRAGEN & ANTWORTEN 




VON TEXAS ENTTÄUSCHT 


Als Besitzer des Assemblers 
sowie des XBasics bin ich 
enttäuscht darüber, daß 
TEXAS INSTRUMENTS 
nicht in der Lage ist, die 
Software des TI-99/4A 
aufeinander abzustim¬ 
men. Es gelingt mir näm¬ 
lich nicht, irgendein 
Assemblerprogramm 
mit den Befehlen: 

CALL INIT 

CALL LOAD (“DSK1. 

IRGENDWAS“) 

vom XBasic aus zu laden. 

Das Diskettenlaufwerk 

springt zwar an, aber das 

XBasic gibt nach ca. 

2 Sekunden die Fehler¬ 
meldung *UNRECO- 
GNIZED CHARACTER* 
aus und bricht den Lade¬ 


vorgang ab. 

Auf die Anfrage bei 
TEXAS INSTRUMENTS, 
was es denn damit auf 
sich habe, stieß ich nur 
auf Unwissenheit (wie 
so oft - seufz!). 

Meine Frage ist also: Wie 
kann ich mein XBasic- 
modul dazu bringen, ein 


Assemblerprogramm 

zunehmen? 

Stephan Jeremias 
Nerotal 12 


an- 


6200 Wiesbaden 


Die Funktion des Exten¬ 
ded Basic Moduls ist voll¬ 
kommen in Ordnung. Die 
Meldung *UNRECO- 
GNIZED CHARACTER* 
ist eine Schutzfunktion 
des Assembler Moduls ge¬ 
genüber Extended Basic. 
Grundsätzlich ist es näm¬ 
lich möglich, jedes 
Assembler Programm mit 
X-Basic zu laden, wenn 
es nur beim assembeln 
NICHT mit der Option 
C=Compressed versehen 
wurde. Ist diese, zugege¬ 
ben auf der Diskette 
platzsparende, Version 
verwendet worden, kann 
dieses Programm nur 
noch über den Assembler 
mittels LOAD AND RUN 
gestartet werden. 


KABEL-PROBLEME 


Seit Ende Februar ’84 bin 
ich Besitzer eines TI-99/4A 
und bin eigentlich auch 
ganz zufrieden. 

Doch eines Tages lief 
meine kleine Schwester 
durch den Raum und stol¬ 
perte dabei über das An¬ 
tennenkabel meines Tis. 
Seitdem habe ich fast je¬ 
desmal, wenn das Kabel 
leicht angestoßen wird 
oder „falsch“ liegt, einen 
Systemausfall. Statt des 
gerade eingeladenen oder 
eingetippten Programms 
habe ich nur noch Funk¬ 
stille, manchmal auch 
einen Pfeifton, und ein 
graues Fernsehbild. Zwar 
schaffe ich es zumeist 
durch Drehen oder „Bug¬ 
sieren“ (Veränderung der 
Lage) auf das Testbild 
zurückzukommen, aber 
der Speicher ist gelöscht, 
und damit auch das Pro¬ 
gramm! 

Wie kann ich die Störung 
beseitigen und wieviel 
würde eine Reparatur 
kosten? 

Heinz-Josef Eckers 
Hermann-Hesse-Str. 7 
4050 Mönchengladbach 1 

Offensichtlich hat Ihre 
kleine Schwester das Ka¬ 
bel des Pal-Modulators 
derart beschädigt, daß bei 
einer bestimmten Bewe¬ 
gung ein Kurzschluß ver¬ 
ursacht wird. Ein einfa¬ 
cher Kabelriß würde näm¬ 
lich „nur" das Bild ver¬ 
schwinden lassen, ohne 
Systemabsturz. Am besten 
senden Sie dieses Teil mit 
Kaufnachweis zu Texas 
Instruments nach Freising, 
noch während Ihrer ein¬ 
jährigen Garantiezeit ein. 
Desweiteren fehlt Ihnen 
bei Ihrer Konsole die Ge¬ 
brauchsanleitung. Sie ha¬ 
ben jedoch schon ein 
Buch Basic/Extended 
Basic für Anfänger erwor¬ 
ben. Dieses beinhaltet 
auch die komplette Ge¬ 
brauchsanweisung, genau¬ 
so wie die komplette deut¬ 
sche Anleitung für das Ex¬ 
tended Basic Modul. Üb¬ 
rigens, Extended Basic Mo- 
dule gibt es im einschlägi¬ 
gen Fachhandel in ausrei¬ 


chenden Mengen, wenn 
auch zu entsprechenden 
Preisen. Sehen Sie doch 
mal im Anzeigenteil nach. 


DISKMANAGER DEFEKT? 


Seit etwa 2 Jahren besitze 
ich den TI 99/4A mit Er¬ 
weiterungsbox, Control¬ 
ler-Laufwerk, Schnitt¬ 
stelle, RAM-Erweiterung, 
32 K-Ex-Basic, Mini- 
memory, Editor-Assemb¬ 
ler und vieles mehr. Nun 
zu meinem Problem: das 
Diskettenmanagermodul 1 
initialisiert nicht mehr 
ordnungsgemäß. Beim 
Initialisieren (Bereiche 
werden in Zahlen ange¬ 
zeigt) geht er bis 17, 
dann rattert das Laufwerk 
ein wenig und dann macht 
es weiter. Dieses Spiel 
wiederholt sich in ande¬ 
ren Bereichen etwa 40mal. 
Bei der Fertigmeldung 
zeigt er: 316 Bereiche frei 
40 belegt. 

Bei der späteren Benut¬ 
zung dieser Disketten wer¬ 
den die Programme nicht 
einwandfrei gespeichert 
und werden auch nicht 
mehr eingelesen. 

Nun habe ich einen 
Wunsch und zwar: even¬ 
tuelle Tips oder Hilfe 
oder mögliche Ursache 
dieses Fehlers oder gibt es 
ein Programm, womit man 
mit Ex-Basic initialisieren 
kann! 

Peter Hoops 
Skagerrakstr. 10c 
2960 Aurich 1 

Ihr Diskettenmanagermo¬ 
dul ist offensichtlich de¬ 
fekt. Wir empfehlen Ih¬ 
nen, das Modul an Texas 
Instruments zur Repara¬ 
tur einzusenden. Eine 
Möglichkeit, Basic her¬ 
aus zu initialisieren, ist 
uns nicht bekannt. 


WO SIND DIE 
BEINCHEN 


Nr. 2 gesehen, gekauft. 
Schnell durchgeblättert 
wie immer. Stop — auf 
Seite Nr. 8 „Achtkanal- 
Ein- und Ausgabe“. 


Ein Spitzen-Bericht und 
dazu noch mit einem 
Schaltplan. 

Ich habe am nächsten 
Tag die Bestellung der 
angegebenen Chips ge¬ 
macht. Drei Tage danach 
kam die Bestellung ins 
Haus. 

Lötkolben aufgeheizt, 
Chips 741 s85 schon in 
der Hand und, na eben 
und wie kommt er nun 
hin??? 

16 Beine und 14 An¬ 
schlüsse nach Schaltplan. 
Erster Gedankenblitz: 

Sind die Beine numeriert? 
Ergebnis negativ. 

Mit blasser Miene unter¬ 
suche in die anderen 
Schwarz-Beiner. 

Resultat: Enttäuschung. 
Für einen Nicht-Elektro¬ 
niker sind die Schaltun¬ 
gen zwar sehr anschaulich 
gezeichnet, nur die Praxis 
ist eben doch einiges 
komplexer. 

Nun heute ist der 2.10.84, 
bei mir zuhause ist mein 
alter TI 99, daneben das 
Minimem und darauf die 
7 Waisenkinder,die nach 
den passenden Werk¬ 
schuhen suchen. 

Mario Roshardt 
Mettlerstr. 4 
8640 Rapperswil/ 

Schweiz 

Nachdem diese Probleme 
bereits mehrfach aufge¬ 
treten sind, haben wir 
uns entschlossen, die 
grundsätzliche Pinbele¬ 
gung, die bei allen inte¬ 
grierten Schaltkreisen 
gleich ist, darzustellen. 
Zur Verdeutlichung dient 
nachstehendes Bild, mit 
dem hoffentlich alle Un¬ 
klarheiten beseitigt wer¬ 
den können. 


16PIN 14PIN 

Anschlüsse von oben betrachtet 
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FRAGEN & ANTWORTEN 


DA-W^NDLER FÜR DEN TT 


Ich will meinen TI 99/4A 
zur Steuerung eines 
Schrittmotors verwenden. 
Wie kann ich dazu einen 
D/A-Wandler anschließen? 
Kann man eine universel¬ 
le Ein/Ausgabekarte an¬ 
schließen? 

Edwin Halbleib 
Herrengasse 12 
8781 Motten 

Die in Heft 2 veröffentlich¬ 
te Schaltung bietet die 
Möglichkeit, einen D/A- 
Wandler anzusteuern, wo¬ 
bei nur die Ausgangslei¬ 
tungen des 74 LS 259 
mit den Eingängen des 
D/A-Bausteins verbunden 
werden müssen. 

Verwenden kann man z.B. 
den A/D-Wandler TL 507, 
der auch als D/A-Baustein 
eingesetzt wird. Die not¬ 
wendige Software sowie 
der Hardwareanschluß 
wird in einem der näch¬ 
sten Hefte veröffentlicht. 


MEIN DRUCKER 
DRUCKT ZU BREIT 


An meiner Anlage habe 
ich einen „Epson RX 80“- 
Drucker angeschlossen, 
der jedoch beim Listen 
volle 80 Zeichen aus¬ 
druckt. Somit ist mir nicht 
mehr die Möglichkeit gege¬ 
ben, daß ich das ausgewor¬ 
fene Listing vernünftig 
abheften kann, da mir ein¬ 
fach kein Heftrand mehr 
bleibt. 

Meine Frage: Gibt es eine 
Routine, womit ich dem 
Drucker den Befehl geben 
kann, nicht mehr als 40 
(oder je nach Beheben) 
Zeichen auszudrucken. 

Udo W. Jobsky 
Vorsterhauser Weg 34 
4700 Hamm 1 

Mit den Befehlen 
10 OPEN #1: “RS232... “ 
20 PRINT #1 :CHR$(27); 
CHR$(n); 

30 PRINT #1 :CHR$(2 7); 

“Q“;CHR$( n); 

40 CLOSE #1 
wird der linke und rechte 
Rand für den Drucker RX- 
80 festgelegt. 

Diese Routine kann ent¬ 


weder ins Programm einge¬ 
baut oder als separate 
Unterroutine gestartet 
werden. Die Randbegren¬ 
zung bleibt solange im 
Drucker gespeichert, bis 
dieser entweder ausge¬ 
schaltet oder CHR$(64) 

(RESET) gesendet wird. 


SCHWACHSINNIGE 

IDIOTEN-REDAKTEURE 


Spätestens auf Seite 5 Ih¬ 
res ersten Heftes wurde 
mir voller Entsetzen klar, 
daß es sich wieder einmal 
um genau die selben 
schwachsinnigen Tips han¬ 
delt, wie sie an anderer 
Stelle schon hunderte 
von Malen erschienen 
waren. 

Was diesen „Tips“ jedoch 
die Krone aufsetzt und 
gleichzeitig auch der ei¬ 
gentliche Grund meines 
Schreibens ist, ist der Ar¬ 
tikel auf Seite 6 Ihrer 
zweiten Ausgabe,der mit 
der nahezu sarkastischen 
Überschrift versehen ist, 
die da lautet „elegante(l) 
Befehle ohne X“ 

Was hier dem Leser gebo¬ 
ten wird, grenzt (einmal 
davon abgesehen, daß es 
ohnehin schon hundert¬ 
mal anderswo zu lesen 
war) an reine Unverschämt¬ 
heit! 

Doch möchte ich meine 
Kritik gerne fundieren: 
Beginnen möchte ich mit 
dem ersten „Tip“: Da 
konnte man doch tatsäch¬ 
lich lesen, daß man Pi 
abrufen kann, indem man 
es zuvor als Variable ein¬ 
gibt. Wenn Sie etwas der¬ 
artiges als Tip auffassen, 
dann möchte ich Ihnen 
doch einmal raten 
“IDIOTEN §=”TI-Revue- 
Redakteure““ einzugeben 
und dann zu schauen was 
passiert, wenn man 
IDIOTEN§ abruft. 

Ach, man kann übrigens 
Pi abrufen indem man 
4*ATN(1) eingibt. Aber 
pi=3.141.. .ist vermutlich 
leichter zu behalten. 

Bevor ich bei der Kritik 
dieses „Tips“ noch weiter 
ins Bösartige abrutsche, 
möchte ich mich dem 
nächsten zuwenden: Na¬ 
türlich ist auch dieser 


„Bartaufwickelmaschinen“ 
Trick vollkommen 
schwachsinnig! 

Einmal davon abgesehen, 
daß die eckigen Klam¬ 
mern nicht akzeptiert 
werden, daß außerdem in 
Zeile 110 ein Seg§ zuviel 
steht und daß im zweiten 
Seg§-Befehl die Länge- 
Parameter fehlt, also ab¬ 
gesehen von diesen Klei¬ 
nigkeiten, die jede für sich 
das Funktionieren der 
Subroutine unmöglich ma¬ 
chen, ist diese Routine 
auch noch so entsetzlich 
unrentabel, daß man Spei¬ 
cherplatz spart, wenn man 
auf sie verzichtet! 

Natürlich ist mir klar, daß 
Sie das oben gesagte nicht 
verstanden haben (wenn 
doch: Herzlichen Glück¬ 
wunsch: Idiotentest be¬ 
standen), darum will ich 
es noch einmal näher er¬ 
läutern: Wenn man zu 
der Subroutine springen 
will, muß man zunächst 
drei Variabein definieren. 
Das macht zusammen mit 
der Gosub-Zeile 4 Zeilen. 
Benutzt man die Routine 
jedoch jedesmal gleich an 
Ort und Stelle und setzt 
die Variabein sofort ein, 
dann fällt die Return- 
Zeile weg und es läßt sich 
nachweisen, daß die üb¬ 
rigen drei Zeilen weniger 
Speicherplatz benötigen 
als die vorherigen vier 
Zeilen. 

Wolfgang Müskens 
Kranenburger Str. 224 
4180 Goch 6 

Wir Idioten verneigen uns 
in tiefer Ehrfurcht vor 
dem Wissen dieses Lesers. 


TI STREIKT 


Beim Laden eines Pro¬ 
grammes von Kassette 
auf den TI, mit ange¬ 
schlossener Peripherie¬ 
box (32K-Erweiterung) 
und dem Extended Ba- 
sicmodul, da streikt mein 
TI. Er nimmt das Pro¬ 
gramm nicht auf. Ziehe 
ich nun das Extended 
Basicmodul heraus und 
klemme die Peripherie¬ 
box ab, dann klappt 
das Laden. Da ich aber 


fast alle Programme auf 
Diskette habe, möchte 
ich auch die wenigen 
restlichen Kassettenpro¬ 
gramme auf die Diskette 
bringen. 

Uwe Brandauer 

In den meisten Fällen 
läßt sich das geschilder¬ 
te Problem im Direkt¬ 
modus durch den Befehl 
Call-Files (1) New besei¬ 
tigen. Dieser Befehl 
schafft im Speicher einige 
hundert Bit Platz, so daß 
in den meisten Fällen die 
Kassettenprogramme ge¬ 
laden werden können. 

(Die Peripherieerweite¬ 
rung benötigt einige Bit 
Platz im Konsolenspeicher, 
der dann bei den besagten 
Basicprogrammen fehlt.) 
Wenn auch diese Methode 
versagt, bleibt Ihnen 
nichts anderes übrig, als 
mit abgeklemmter Peri¬ 
pheriebox Ihr Kassetten¬ 
programm zu laden, die 
Hälfte davon zu löschen, 
diesen Teil auf die Kasset¬ 
te zurückzuladen, mit 
dem zweiten Teil genauso 
zu verfahren, anschließend 
Extended-Basic und Box 
wieder anzuklemmen, hin¬ 
einzuladen, auf Diskette 
zur bringen und die beiden 
Teile wieder zusammenzu- 
mergen. 

Dann müßte es gehen. Le¬ 
diglich bei Kassettenpro¬ 
grammen, die überlang 
und mit Protected gesi¬ 
chert sind, versagen sämt¬ 
liche Methoden. Hier gibt 
es im Moment leider noch 
keinen Weg. Aber vielleicht 
weiß hier ein anderer 
Leser Rat. 


BILDSCHIRM WEG 


Wenn ich etwas länger am 
TI eingebe, kam es schon 
öfters vor, daß der Bild¬ 
schirm auf einmal weg war, 
und die Speichererweite¬ 
rung sich von selbst aus¬ 
schaltete. Außerdem hatte 
ich schon Schwierigkeiten 
mit dem Load-Programm. 
Beim Einschalten müßte 
der Computer das Pro¬ 
gramm, das unter Load 
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ab gespeichert wurde, ein¬ 
iesen. Oftmals hat der 
Computer dieses Load 
nicht gesucht. Es brumm¬ 
te dann auf dem Bild¬ 
schirm oder der TI zeich¬ 
nete chaotische Bilder. 

Seit einiger Zeit habe ich 
die 32 K-Karte in einen 
anderen Port vertauscht 
und bis jetzt läuft er wie¬ 
der. An was kann das 
liegen? 

Uwe Brandauer 

So wie Sie das Problem 
schildern, sind es eindeu¬ 
tige Kontaktprobleme. 

Wir empfehlen Ihnen, 
sämtliche Kontakte am 
Modulport, am Peripherie¬ 
port sowie in der Box vor¬ 
sichtig mit einem Elek¬ 
tro n i kr ein igu ngsm ittel zu 
reinigen. Dann müßte es 
eigentlich wieder gehen. 

DAS MBI, DIE FIRMA 
KLEIN UND DIE 
ERFAHRUNGEN 
UNSERER LESER 


Ich besitze seit einiger Zeit 
das MBI-Interface TI 99/ 
4A auf Centronics. Für 
normales Drucken ist es 
zu gebrauchen, aber so¬ 
bald man eigene Zeichen 
oder Grafik ausdrucken 
will, klappt nichts mehr. 
Nach einer Rückfrage bei 
MBI erklärt man mir, daß 
man für Grafikdruck die 
eingebauten Schalter auf 
8 Bit umstellen muß. 

Dies klappte auch nach 
mehrmaligen Versuchen 
nicht. 

Auch die in der Anleitung 
beschriebene Umstellung 
der Baud-Rate wird nicht 
mit Erfolg belohnt. 

Ein großer Mangel ist, daß 
das Interface nicht abge¬ 
schirmt ist. Dies macht 
sich durch einen verschnei¬ 
ten Bildschirm bemerkbar. 
Die Zuleitung vom Inter¬ 
face zum Drucker muß 
mit Alufolie oder anderen 
geeigneten Materialien 
abgeschirmt werden. 
H.-Günter Stahl 
4100 Duisburg 26 
* 

Mir ging es ganz ähnlich 
wie diesem Herrn (W.M.), 
jedoch habe ich mit der 
Fa. Klein keine schlechte 
Erfahrung gemacht. 


Zum Thema MBI-Interface der Firma Klein in 
' Wuppertal efreichte uns ein Schreiben einer 
Wuppertaler Anwaltskanzlei. 

Darin wird gebeten, darauf hinzuweisen, daß es sich 
bei der in der Ausgabe 2 von TI-REVUE 
genannten Firma Klein nicht um ihren Klienten, 
die Firma Hans Klein, Elektronikbauteile Großhand¬ 
lung, Postfach 200702, Wuppertal 2, handele. 

Die Redaktion hat sich von der Richtigkeit 
dieser Feststellung überzeugt und bedauert, daß 
durch eine zufällige Namensgleichheit hier ein 
Unternehmen in einen falschen Verdacht geriet. 


Auch ich wollte einen 
Drucker anschließen und 
war auf der Suche nach 
einer Möglichkeit. Im 
Metro-Großmarkt erfuhr 
ich zum ersten Mal von 
einem Multi Board 
Interface für die Silver- 
Reed EX 42, abgestimmt 
auf TI 99/4A. 

Die Freude nun drucken 
zu können war groß, denn 
ich entschloß mich, diese 
beiden Geräte, Schön¬ 
schreibdrucker und Multi 
Board Interface der Fa. 
Klein, zu kaufen. 

Der erste Versuch, den 
Drucker in Gang zu brin¬ 
gen, schlug fehl. 

Ein Anruf bei der Fa. 

Klein in Wuppertal brach¬ 
te mir die Information, 
wie dieses Interface einge¬ 
stellt sein muß. 

Ich tat so, wie mir gesagt 
wurde, und mein Drucker ' 
funktioniert einwandfrei. 
Werner Hassler 

* 

Der Grund für meinen 
Brief ist der arme Mathias 
E., der, wie Sie in der letz¬ 
ten Ausgabe schrieben, 
arge Probleme mit seinem 
Drucker bzw. Interface 
hat. Ich besitze ebenfalls 
einen MBI und den 
Seikosha GP 550A. Da ich 
auch 2 Stunden lang Pro¬ 
bleme mit dem Interface 
hatte, hoffe ich, daß mei¬ 
ne Lösung auch dem M.E. 
hilft. 

Zuerst, bei dem MBI han¬ 
delt es sich um ein seriel¬ 
les Interface, d.h. die Ein¬ 
stellung der Datenlänge 
ist sehr wichtig. 

Der Tip ist, daß M.E. die 
Datei mit ÖPEN#1: 
“RS232.BA=4800.DA=8“ 
eröffnet, wobei DA=8 be¬ 


deutet, daß 8 Datenbits 
kommen. Falls sich jetzt 
überhaupt nichts mehr 
drucken läßt, müßte das 
Interface geöffnet wer¬ 
den und die DIL-Schalter 
3&4 auf die Stellung 
OFF&OFF gebracht wer¬ 
den, und danach geht es 
nochmal wie oben. 

Ralf Biedermann 
Ortfeld 

* 

Da ich ebenfalls im Besitz 
eines MBI-Multiboard- 
Interface der Firma Klein 
bin, erging es mir am An¬ 
fang ähnlich wie Herrn 
Sendelbach. 

Trotz Probieren aller Mög¬ 
lichkeiten, entlockte ich 
meinem Seikosha Drucker 
GP100-A kein einziges 
Zeichen. Irgendwann ge¬ 
lang es dann doch. Hier 
meine Lösung: 

Multiboard aufschrauben. 
DIL-Schalter auf folgende 
Stellung bringen: 
SCHALTER 1 ON 
SCHALTER 2 OFF 
SCHALTER 3 ON 
SCHALTER 4 ON 
SCHALTER 5 ON 
SCHALTER 6 OFF 
SCHALTER 7 ON 
SCHALTER 8 ON 
Drucker eröffnen mit 
10 OPEN #1:“RS232. , 

BA=4800.DA=8“ 

20 PRINT #1:. 

Und schon konnte es los¬ 
gehen; sowohl bei der Gra¬ 
fik “CHR$(8)‘‘, als auch 
beim normalen Drucken 
geht es ohne Probleme. 

* 

Bezüglich Ihres Berichtes 
über die angeblichen Prak¬ 
tiken der Firma Compu¬ 
ter-Klein, bin ich nicht 
ganz Ihrer Ansicht. Daß 


Sie diesen Brief, trotz der 
Zeilennummem, lesen 
können, verdanke ich dem 
Multiboard Interface, Her¬ 
steller: Fa. Klein! Ich 
habe im Februar 1984 
über meinen Büromaterial- 
Großhändler hier in 
Frankfurt ein Multi-Inter¬ 
face zum Preis von ca. 

DM 650,— bestellt und 
bekam dieses ca. vier Wo¬ 
chen später geliefert. Da 
ich meine Anlage beruflich 
beim Kernkraftwerksbau 
in Brokdorf einsetzen muß 
te, benötigte ich auch ei¬ 
nen vernünftigen Drucker. 
Diesen besorgte ich mir 
über den Otto-Versand, 
bekam aber das passende 
Interface dazu nicht mit¬ 
geliefert. Lediglich über 
die Niederlassung des 
Druckerherstellers bekam 
ich dann die Anschrift 
des Interface-Herstellers. 
Trotz eines Fehlers im 
Interface, den ich erst vor 
vier Wochen beheben las¬ 
sen konnte — eine Löt¬ 
stelle war verkehrt ange¬ 
lötet.- bin ich mit dem 
Interface sehr zufrieden. 
Die Reparatur erfolgte ko¬ 
stenlos innerhalb von vier 
Tagen auf Garantie! 

Ihrem Herrn W.M. kann 
ich nur empfehlen, sich 
nochmals an die Fa. Klein 
zu wenden; er sollte aber 
möglichst schreiben: 
z. Hd. v. H. König — er ist 
der maßgebende Tech¬ 
niker dort. 

Josef Bachmaier 
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SINGLE STEP FÜR 
DEN TI 99/4A 

Manche Assemblerfreaks 
werden sicher schon be¬ 
merkt haben, daß im 
Debugger ein Befehl für 
Singlestep implementiert 
wurde. 

Leider fehlt jedoch die 
entsprechende Hardware. 
Diesem Übel möchte ich 
mit meiner Schaltung 
abhelfen. 

Nachdem ich ca. 40 Seiten 
Listing produziert hatte, 
hielt ich den kompletten 
Debugger Source Code in 
den Händen. Der entspre¬ 
chende Teil für Single- 
Step war schnell gefun¬ 
den. Texas Instruments 
wollte die notwendige 
Hardware vielleicht ein¬ 
mal als Option anbieten, 
hat das aber leider nicht 
getan. 

Wofür kann man eigent¬ 
lich Single-Step verwen¬ 
den? 

Diese Frage läßt sich rela¬ 
tiv leicht beantworten. 
Nehmen wir ein langes 
fehlerhaftes Assemblerpro¬ 
gramm und testen die 
Funktionsweise mit Hilfe 
des Debuggers. Bisher war 
es nur möglich, das Pro¬ 
gramm nach dem Befehl 
E (EXECUTE) anzuhalten, 
durch vorheriges Setzen 
von Breakpoints (Unter¬ 
brechungsstellen). 

Wollte man nach jedem 
Programmbefehl eine 
Überprüfung der Register- 
und Speicherinhalte vor¬ 
nehmen, so konnte dies 
nur mit dem zahllosen Set¬ 
zen von Breakpoints reali¬ 
siert werden. 

Mit meiner Hardwareer¬ 
weiterung, die sich übri¬ 
gens problemlos in den 
Speech-Synthesizer imple¬ 
mentieren läßt, wird diese 
umständliche Fehlersuch¬ 
methode restlos beseitigt. 
Die Funktionsweise der 
Schaltung ergab sich 
zwangsweise durch die 
bereits vorhandene Soft¬ 
ware, die ich nicht ändern 
wollte. 

Das S-Kommando gibt so¬ 
mit nach jedem ausgeführ¬ 
ten Befehl die Kontrolle 
an den Debugger zurück, 
man kann nach jeder An¬ 


weisung des Benutzerpro¬ 
gramms eine Überprüfung 
durchfuhren. 

Die Anweisung S 6 
<ENTER> veranlaßt den 
Debugger, 6 Programm¬ 
schritte abzuarbeiten, erst 
danach wird die Kontrolle 
wieder an den Debugger 
übergeben. 

Kommen wir nun zur 
Hardwarebeschreibung: 

Wie aus dem Schaltplan 
erkennbar, erfolgt eine De¬ 
kodierung der Adresse 
13C0, die oberhalb der 
RS232-I-Schnittstelle liegt. 


Die Notwendigkeit zur De¬ 
kodierung dieser Adresse 
ergab sich aus der Soft¬ 
waregegebenheit des 
Debuggers. 

Auszug aus der Debugger- 
Software: 


INC ST ART A 
TRACE1 MOV §T9900, 
§FLAG 
SBO 0 
RTWP 

* LOAD ENTRY 
LOAD 

LD EQU $ 


Nachdem der Befehl 
SBO 0 erfolgte, müssen 
noch zwei Befehle ausge¬ 


führt werden. Erstens der 
Rücksprung des Debuggers 
von der Single-Step-Rou- 
tine zum Benutzerpro¬ 
gramm (RTWP) und zwei¬ 
tens der nächste anstehen¬ 
de Befehl des zu überprü¬ 
fenden Assemblerpro¬ 
gramms. Glücklicherweise 
zeigt der TMS 9900 die 
Befehlsausführung über 
die Steuerleitung IAQ an, 
wenn zwei IAW-Zyklen 
aufgetreten sind, wurden 
auch zwei Befehle 
abgearbeitet. 

Solange die CRU-Ad resse 


13C0 nicht angesprochen 
wird, erfolgt ein Sperren 
der Leitung A15/CRUOUT, 
wodurch der Ausgang des 
Gatters und somit die 
Presetleitung der 74ALS74 
auf logisch 1 (=5V) hegt. 
Die dauernde Aktivität 
der IAQ-Steuerleitung 
führt dazu, daß der GV- 
Pegel der D-Leitung auf 
den Ausgang des Flipflops 
(Q) durchgetaktet wird. 

Diese logische 0 (=0V) 
wird von den zwei Flip- 
flops 74ALS109 ebenfalls 
bis zum Ausgang durchge¬ 
schoben. Bedingt durch 
den Load-Interupt, der 
bei logisch 0 aktiv wird, 
erfolgt der Abgriff am in¬ 
vertierten Q-Ausgang des 
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Flipflops (im Ruhestand 
logisch 1). 

Bei Verwendung des S- 
Kommandos wird die L. 
tung Al5/CRUOUT frei¬ 
gegeben und der Ausgang 
des 74ALS74 auf 1 ge¬ 
setzt. Diese 1 bewirkt das 
Anlaufen der nachfolgen¬ 
den Flipflops, die nun¬ 
mehr nach zwei IAQ-Zyk- 
len einen Load-Interrupt 
erzeugen. 

Tritt ein Load-Interrupt 
auf, so erfolgt ein Sprung 
zur Memory Adresse 
FFFE. Der Inhalt dieser 
Speicherzelle wird als Pro¬ 
grammfortsetzadresse ver¬ 
wendet, beim Inhalt B000 
wird ab B000 mit der 
Fortführung des Assembler- 


NÜTZLICHES WERK¬ 
ZEUG ZUM TESTEN 
ALLER PROGRAMME 
FÜR ALLE ASSEMBLER¬ 
ANWENDER 


Programms begonnen. Das 
Laden der Fortsetzadresse 
wird vom Debugger beim 
Start vorgenommen. 

Durch diese Zwangsunter¬ 
brechung erhält der Be¬ 
nutzer nach jeder S-Anwei- 
sung die Kontrolle über 
sein Programm zurück. 

Zum Schluß möchte ich 
noch näher auf die Ver¬ 
wendung von ALS (Ad¬ 
vanced Lowpower 
Schottky) eingehen. Der 
Grund liegt in der Strom- 
erspamis, die rund 30% 
betragen dürfte. Der Ein¬ 
satz dieser ICs Findet volle 
Anerkennung bei der 
ohnehin ziemlich überlaste¬ 
ten Spannungsversurgung 
der Konsole. Eine Verwen¬ 
dung von LS-Bausteinen 
liegt aber auch im Rah¬ 
men des möglichen, zumal 
dies für den Geldbeutel 
weniger strapaziös sein 
dürfte. 

Ein Anschluß der Schal¬ 
tung am Grom-Port schei¬ 
det von vornherein aus, da 
wichtige Signale (IAQ, 
LOAD) völlig fehlen. 

Ich hoffe, mit dieser Schal¬ 
tung allen Assembleranwen¬ 
dern ein nützliches Werk¬ 
zeug zum Testen Ihrer Pro¬ 
gramme gegeben zu haben. 

Reiner Ziegler 


UNSER SOFTWARE-TEST IN HEIT 2 


Im letzten Heft haben wir eine ganze Reihe von 
neuen Spielmodulen aus den USA getestet. Bei sämt- | 
liehen Modulen handelt es sich um Original-TI-Soft- 
ware, die bisher am deutschen Markt nicht erhältlich 
war. Uns haben daraufhin sehr viele Anfragen nach 
Bezugsquellen erreicht. Diese Spiele sind bisher am 
deutschen Markt nur sehr beschränkt erhältlich. 

Wie wir aus den Aufträgen unserer Anzeigenkund¬ 
schaft ersehen können, werden die Spiele voraus¬ 
sichtlich im Weihnachtsgeschäft in ausreichender 
Menge zur Verfügung stehen. Wer sie kaufen möch¬ 
te, wendet sich am besten an unsere Anzeigenkun¬ 
den. Der Verlag selbst handelt nicht mit Software 
und Hardware; auch ist es uns leider nicht möglich, 
derartige Anfragen weiterzuleiten. Zu den Preisen 
möchten wir noch bemerken, daß es sich um die 
umgerechneten Dollarpreise bezogen auf den Monat 
August dieses Jahres handelte. Zu diesen Preisen 
kommt selbstverständlich noch der geänderte 
Wechselkurs sowie Fracht und Zoll hinzu. 

Dadurch werden diese Spiele auf dem deutschen 
Markt um cä. die Hälfte teurer sein als in den USA. 
Dies liegt aber nicht an den Händlern, sondern ein¬ 
zig und allein an Fracht und Zollkosten. 
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TIPS & TRICKS 


UNTERPROGRAMM E 

Anhand der nun folgenden Beispiele will ich zeigen, 
wie einfach und nützlich das Erstellen von Unter¬ 
programmen mit dem TI-99/4A ist. 

Bevor ich jedoch mit den eigentlichen Unterpro¬ 
grammen beginne, ein kurzer Überblick über die 
Gesetzmäßigkeiten, welche unbedingt beim Ge¬ 
brauch von solchen Unterprogrammen bekannt 
sein müssen, um lästige Fehlermeldungen zu ver¬ 
meiden. Der TI mit EXTENDED BASIC besitzt ins¬ 
gesamt 3 spezielle Befehle, die zur Erstellung und 
zum Gebrauch von Unterprogrammen notwendig 
sind. 

Die Befehle sind: SUB () 

SUBEND 

SUBEXIT 

Durch “SUB(Programmname(Variable))” kann 
man einem Unterprogramm einen Namen zuord¬ 
nen, außerdem können Variablen und Strings hin¬ 
zugefügt werden, wodurch eine allgemeine Anwen¬ 
dung möglich wird. 

In einem Programm kann das z.B. so aussehen: 

> 100 SUB TEST (X,Y,AS). 

Test ist der Name des Ünterprogramms und dahin¬ 
ter stehen die Variablen. Möchte man das Unter : 
Programm aufrufen, dann muß man z.B. schrei¬ 
ben: > 10 CALL TEST (5,7 “TSET”). 

Der zweite Befehl SUBEND gibt an, wann das 
Unterprogramm zuende ist und weist den Compu¬ 
ter an, zur Ausgangsadresse zurückzukehren. 
Möchte man jedoch das Unterprogramm früher ver¬ 
lassen, kann man das nicht einfach mit GOTO er¬ 
reichen, sondern man muß einen extra dafür vorge¬ 
sehenen Befehl verwenden, und zwar SUBEXIT. 
Der Computer verhält sich dabei genauso wie bei 
SUBEND. 

Ein häufiger Fehler, der am Anfang gemacht wird, 
ist der, daß man hinter die Unterprogramme noch 
Befehle wie FOR TO ; NEXT ; DATA etc. stehen 
hat. Man erhält dann eine Fehlermeldung: 
“ILLEGAL AFTER SUBPROGRAM“. Man darf 
also hinter Unterprogramme keine Befehle setzen, 
lediglich END und REM sind erlaubt. Unterpro- 
gramme selbst können natürlich, solange der Spei¬ 
cher noch Platz hat, beliebig oft hintereinander 
geschrieben werden. 

Die Anwendung von Unterprogrammen kann für 
den Besitzer einer Diskettenstation bei der Erstel¬ 
lung von Programmen besonders nützlich sein, 
denn der TI-99/4A hat eine sogenannte MERGE 
Funktion. 

Die MERGE Funktion ermöglicht einem nämlich, 
Unterprogramme zu laden, ohne daß dabei ein 
bereits im Speicher befindliches Programm ge¬ 
löscht wird. 

Aufpassen muß man da nur mit den Adressen. Hat 
das im Speicher befindliche Basic Programm näm¬ 
lich die gleiche Adresse belegt wie das Unterpro¬ 
gramm, das man „mergen“ möchte, dann wird die¬ 
se Zeile vom Unterprogramm überschrieben. 

Um dieses ungewollte Überschreiben möglichst zu 
vermeiden, haben die folgenden Unterprogramme 
Adressen über 30000. 

Mit Unterprogrammen zu arbeiten und damit Pro¬ 
gramme zu entwerfen, ist sehr zeitsparend und es 
lohnt sich, eine kleine Sammlung solcher Unter¬ 
programme anzulegen. 

Pieter Coates 


30015 SUB BLINK(YPOS,XPOS,SP 
EED,TIME,SATZ*) 

30016 IF YPOS< =0 OR XP0S<=0 
OR SFEED< O THEN SUBEXIT 

30017 FOR TI=1 TO TIME :: DI 
SPLAY AT(YPOS,XPOS)SIZE(LEM( 
SATZ*)):SATZ* 

30018 FOR T=1 TO SPEED :: NE 
XT T 

30019 DISPLAY AT(YPOS,XPOS)S 
IZE(LEN(SATZ*)>:"* 

30020 FOR T=1 TO SPEED NE 

XT T 

30021 CALL KEY(0,K,S):: IF S 
<>0 THEN SUBEXIT 

30022 NEXT TI :: SUBEND 

Mit dem BLINK Unterprogramm kann man Texte 
blinken lassen. Sei es, um auf sie besonders auf¬ 
merksam zu machen oder nur um den äußerlichen 
Eindruck eines Programms zu verbessern. 

Das Unterprogramm verlangt fünf Variable, die 
man angeben muß. Durch die ersten zwei 
“YPOS,XPOS” muß man die Anfangsposition des 
Satzes festlegen. Durch “SPEED” muß man die 
Blinkfrequenz eingeben. Zusätzlich muß dann noch 
die Gesamtzahl der Blinkvorgänge eingegeben wer¬ 
den; man kann jedoch jederzeit durch Drücken ei¬ 
ner beliebigen Taste den Blinkvorgang unterbre¬ 
chen. In dem String “SATZ$” soll der Text defi¬ 
niert sein. 

Angewendet könnte das dann so aussehen: 

>100 CALL BLINK(23,2,20,100, “IRGEND 
EINE TASTE DRUECKEN“) 

Die ersten beiden Zahlen, 23 und 2, geben die 
Koordinaten des ersten Buchstaben des Satzes an, 
20 ist die Blinkfrequenz und 100 schließlich ist die 
Anzahl, wie oft der Satz blinken soll. 

30009 SUB STEXT(Z,W*) 

30010 IF LEN(W*)>30 THEN SUB 
EXIT 

30011 Q=INT(32-LEN(W*))/2+1 

30012 FOR AX=Q TO LEN(W*)+Q- 
l r: s*=seg*(W*, AX-Q+i,l):: 

FOR AZ=31 TO AX STEP -1 

30013 CALL HCHAR(Z,AZ+1,32): 

. : CALL HCHAR(Z,AZ,ASC(S*)):: 

NEXT AZ :: NEXT AX 

30014 SUBEND 

Das “STEXT” Unterprogramm ermöglicht auch 
das Schreiben eines Textes auf dem Bildschirm, 
jedoch wird hier ein Text in seine Bestandteile, 
also in seine Buchstaben, zerlegt und diese werden 
dann Stück für Stück vom linken Bildrand in die 
Mitte geschoben. 

Man muß dabei nur die Zeile eingeben, in die der 
Text geschrieben werden soll, und den Text 
selber. 
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In einem Programm kann das so aussehen: 

>100 CALL STEXT( 10,“SCHIEBE TEXT”) 

Hier wird in Zeile 10 der Text “SCHIEBE TEXT” 
nach und nach auf den Bildschirm geholt. 

30000 3UB CTEXT(Y,SND,A*> 

30001 IF LEN()>32 THEN SUB 
EXIT 

30002 XP=INT(16-LEN(A*)/2) 

30003 FOR ST=1 TO LEN(A^) 

30004 CALL HCHAR(Y,XP + ST , 30) 

:: CALL HCHAR(Y,XP+ST,ASC(SE 
GS(AS,ST, 1) ) ) 

30005 IF SND <110 THEN 30007 

30006 FOR L=0 TO 30 STEP IO 
:: CALL SOUND(-100,SND,L):: 
NEXT L 

30007 NEXT ST 

30008 SUBEND 

Bei diesem Programm kann man einen Text durch 
einen Cursor schreiben lassen. In der Klammer be¬ 
finden sich drei Variablen, wobei die erste “y“ 
angibt, in welcher Zeile der Cursor den Text schrei¬ 
ben soll. 

Durch “SND” kann man die Frequenz des Tones 
eingeben, der dann stets bei jedem Buchstaben er¬ 
tönt. Möchte man jedoch keinen Ton haben, so 
braucht man die Variable “SND” nur gleich null 
zu setzen. 

Der Text selbst wird durch den String As reprä¬ 
sentiert. 

Möchte man das Unterprogramm aufrufen, kann 
man schreiben: 

>100 CALL CTEXT (5,220,“ BELIEBIGER 
TEXT”) 

Hier wird der Cursor angewiesen, in Zeile 5 mit 
einem Ton von 220 Hz den Text “BELIEBIGER 
TEXT“ zu schreiben. 

30030 SUB HC(GERAET*) 

30031 OPEN #io:geraet*,outpu 
T 

30032'FOR Y=1 TO 24 :: Q*="" 

30033 FOR X=32 TO 1 STEP -1 
:: CALL GCHAR(Y,X,WE):: WT*= 
CHR*(WE):: Q*=WT*+Q* 

30034 NEXT X 

30035 PRINT #10:TAB(22);Q* : 

: next y : : close «io 

30036 SUBEND 

HC steht für Hardcopy, wodurch die Aufgabe die¬ 
ses Unterprogrammes angedeutet wird. Dieses Pro¬ 
gramm ermöglicht es ASCII Zeichen, die auf dem 
Bildschirm sind, direkt zum Drucker zu übertra¬ 
gen, jedoch keine selbstdefinierten Symbole. Man 
muß lediglich das Gerät angeben, das den Drucker 
steuert, entweder seriell, dann muß man schreiben 
RS232.BA=., oder parallel, dann heißt es PIO. 


Das Programm ist sehr einfach aufgebaut. Der 
Copiervorgang läuft daher recht schnell ab. 

30023 SUB RAHMEN <Z1,SP1,22,S 
P2) 

30024 CALL CHAR(91,"OOOOOOFF 
FF",92,"1818181818181818”,93 

,"OOOOOOIF1F181818",94,"OOOO 
00F8F8181818",95,"1818181F1F 
", 96, "181818F8F8") 

30025 CALL HCHAR(Z1,SP1,93): 

: CALL HCHAR(ZI,SP2,94) 

30026 CALL HCHAR(Z2,SP1,95): 

: CALL HCHAR(Z2,SP2,96):: CA 
LL HCHAR(ZI,SP1+1,91,SP2-SP1 
-1 ) 

30027 CALL HCHAR(Z2,SP1 + 1,91 
,SP2-SP1-1):: CALL VCHAR(Z1+ 

1,SP1,92,Z2-Z1-1) 

30028 CALL VCHAR <Z1 + 1,SP2,92 
,Z2-Z1-1) 

30029 SUBEND 

Dieses Unterprogramm ermöglicht es einen Rahmen 
auf dem Bildschirm herzustellen, um beispielsweise 
eine Überschrift von einem Menü hervorzuheben. 
Man muß lediglich 4 Koordinaten angeben, und 
zwar die der oberen linken Ecke (ZI ,SP!) und die 
der unteren rechten Ecke (Z2,SP2). 

Das Programm belegt allerdings 6 Zeichen (ASCII 
Code 91—96) und kodiert diese um. Will man diese 
Zeichen jedoch im Original später verwenden, so 
muß man die Definition rückgängig machen, z.B. 
mit CALL CHARSET. 

Möchte man also ein Rechteck, mit der 2. Zeile 
und der 2. Spalte als obere linke Ecke und der 
15. Zeile mit der 17. Spalte als rechte untere Ecke 
haben, so braucht man nur zu schreiben: 

>100 CALL RAHMEN(2,2,15,17) 



Terminkalender 1985 

jgj 

TI-99/M JbBP 


Lieferumfang: 
1 Programmdiskette 
1 Kalenderdiskette 1986 
rogrammbeschrelbung (Handbuch) 


Benötigte Konfiguration: 
TI99MA Konsole. Ext. Basic Modul. 
32K Erweiterung. 1 DSK-Laufwerk, (RS232) 

Lieferung gegen Scheck oder per Nachnahme 


Programminfo gegen frank. Rückumschlag oder Bestellung bei: 
D O N I X. Merowinger StraBe 7, 0 5216 Niederkassel 6 
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30037 SUB SICHERN 

30038 ON BREAK NEXT :: CALL 
CLEAR :: try= l :: call scree 
N (2) 

30039 NRA=11111111 :: ! KANN 

BELIEBIGE NR. SEIN. 

30040 FOR F=0 TO 14 :: CALL 
COLOR(F,11,2,3,7,16,4,7,16): 

: NEXT F 

30041 DISPLAY AT < 5,5 ) *. " GEBEN 

SIE BITTE IHRE CODEN 

UMMER AN !!" 

30042 DISPLAY AT(10,12): M _ 

_" :: ACCEPT AT C 9, 12)VAL 

IDATE ( " 1234567890" )SI2E(8) :N 
R 

30043 TRY = TRY +1 :: IF NR=NRA 

THEN 30049 :: DISPLAY AT(18 

,4):"FALSCHE EINGABE !! M 

30044 IF TRY< =2 THEN 30042 : 

: IF TRY >3 THEN 30045 :: DIS 
PLAY AT(20,4):"SIE HABEN NOC 
H EINEN VERSUCH” :: GOTO 300 
42 

30045 CALL CLEAR :: FOR F=5 
TO 9 : : CALL COLOR (F, 7,2) *. : 
NEXT F 

30046 PRINT TAB(3);”SIE SIND 
NICHT BERECHTIGT" :: PRINT 

TAB(3)5 ”******************** 
*****" :: PRINT 

30047 PRINT TAB(3)i"DAS GERA 
ET WIRD GESPERRT!" :: PRINT 


30048 CALL SOUND(-50,444,2): 
: GOTO 30048 


30049 CALL CLEAR :: DISPLAY 
AT (12,5) : M B E R E C- H T I G 

T " :: FOR T=0 TO 30 :: CAL 

L SOUND(-50,1110,T):: NEXT T 

30050 CALL CLEAR :: SUBEND 

Dieses Unterprogramm soll den Zugriff auf be¬ 
stimmte Teile eines Programms erschweren, um 
Daten, die nicht für jeden bestimmt sind, zu 
schützen. Will man an die Daten heran, so muß 
man eine Schlüsselzahl eingeben, die zwischen 
0 und 99999999 liegen kann. Im Programm ist sie 
in der dritten Zeile enthalten. Sie ist als NRA 
definiert. 

Insgesamt hat man 3 Versuche, die richtige Zahl 
einzugeben, um auch Fehleingaben berücksich¬ 
tigen zu können. Beim 3. und letzten Mal wird 
der Programmablauf gesperrt, der Computer befin¬ 
det sich in einer unendlichen Schleife. Das Pro¬ 
gramm läßt sich nicht mit FCTN CLEAR unter¬ 
brechen. Schuld daran ist das ON BREAK NEXT 
in Zeile 30038, das diese Tastenfunktion un¬ 
brauchbar macht. 

Man kann nur noch, um das Programm zu stoppen, 
QUIT drücken. Natürlich hätte man auch die 
QUIT Funktion durch CALL LOAD (—31806,16) 
außer Funktion setzen können, jedoch müßte man 
dann entweder die Konsole abschalten oder das 
Modul rausziehen, wodurch aber die Hardware un¬ 
nötig beansprucht wird, deshalb wurde hier dar¬ 
auf verzichtet. 

Für Besitzer einer Diskettenstation bietet sich noch 
eine besondere Anwendungsmöglichkeit an. Ent¬ 
fernt man nämlich das SUB SICHERN und das 
SUBEND aus dem Programm, speichert es auf Dis¬ 
kette mit besonderem Inhalt, kann man hier ab- 
fragen, ob der Abfragende berechtigt dazu ist 
oder nicht, so daß er je nachdem dann ein Menü 
aufrufen kann, welches diese Dateien zugängig 
macht. 

Noch ein Tip: Damit die Schlüsselzahl nicht sofort 
beim Listen gefunden wird, könnte man sie in viele 
Variable zerlegen, die dann zu einer Funktion zu¬ 
sammengefaßt die Schlüsselzahl ergeben, z.B. 
NRA=A+2B/R-DE+P 2. 


ACHTUNG! TI-99/4A Besitzer durch Direktimport aus USA sofort lieferbar, z. B.: 


Peripherie 

orig. Tl-Peripherie Erw.-Box mit 
Disk-Steuerkarte u. Laufwerk 1.480,- 

32 K-Byte RAM 425,- 

RS 232 Karte 398,- 

Externe Erweiterungen 
32 K-Byte RAM 488,- 

Centronics-Interface 319,- 


Zubehör 

Graphic Tableau 248,- 

Cartridge Expander (f ür 3 Module) 128,- 

4 Farben Streifen Drucker 450,- 

DIN A4-4 Farb.-Drucker/Plotter 898,- 

Slim Line Disk-Laufwerk (DS DD) 650,- 

Einbausatz für 2 Slim Line 
Laufwerke in orig. Box 96,- 


Module 

Extended Basic (deutsch) 

Mini Memory 

Tl-Writer 

Multiplan 

Editor Assembler 

Spiele von 3( 

z. B. M.A.S.H. 


H) 259,- 
290,- 
298,- 
298,- 
220 ,- 

30,-bis 99,- 
75,- 


Alle Preise incl. MwSt. zuzügl. 5.- DM Versandkosten. Lieferung per Nachnahme 
oder Vorkasse, ab 200,- DM versandkostenfrei. 

Fordern Sie unsere kostenlose Preisliste an. 



Programm-Service 


5584 Bullay 

Bergstraße 80 
Telefon 06542/2715 


12 

















TIPS & TRICKS 


80 KB IN DER 
KONSOLE FÜR 
GANZE 200 MARK 

Die erste von mir ange¬ 
strebte Hardware-Entwick¬ 
lung sollte eine Speicher¬ 
erweiterung sein und fol¬ 
gende Voraussetzungen er¬ 
füllen: 

1. Wenig kosten. 

2. In die Konsole integrier¬ 
bar sein. 

3. Einen niedrigen Strom¬ 
verbrauch haben. 

4. Die Platine sollte über¬ 
sichtlich bleiben. (Es 
sollen schon Leute über 
dem Zusammenbau von 
RAM-Platinen mit der 
Lupe und dem Lötkol¬ 
ben in der Hand einge¬ 
schlafen sein) 

Alle diese Voraussetzun¬ 
gen konnten nur von dy¬ 
namischen RAMs erfüllt 
werden, trotz der zu er¬ 
wartenden Anpassungspro¬ 
blemen. 

Meine Wahl fiel auf eine 
64K-Platine, die derzeit 
im Handel für 195,— DM 
angeboten wird, 8x4164, 
Europa-Format, anpas¬ 
sungsfähig, beschrieben in 
Elektor Nrl36 vom 4/82 
(16K dynamische RAM- 
Karte) und Nrl53 vom 
9/83 (Erweiterung auf 
64K). 

Also, zusammenbauen, an- 
steuem über MEMEN, 
DBIN und WE und an¬ 
schließen. Nach Einschal¬ 
ten: ein Fiasko. Der 99er 
stieß den Fremdkörper 
erbarmungslos ab und mel¬ 
dete sich in Kyrillisch. 
Nach einer schlaflosen 
Nacht zwischen Oszillo¬ 
skop und Periodenzähler 
kam dann die Lösung. Die¬ 
ses verdammte Ding arbei¬ 
tet mit einem verdrehten 
Adressbus! Also Anschlüs¬ 
se umlöten und einschal¬ 
ten. Extended-Basic an¬ 
wählen, SIZE eintasten 
und es kam die langerwar¬ 
tete Meldung 24448 
BYTES OF PROGRAM 
SPACE FREE. Ein RUN- 
Versuch holte mich dann 
auf den harten Boden der 
Realitäten zurück. Der 
99er stürzte ins Bodenlose. 
Nach zwei weiteren durch¬ 
tasteten Nächten mit 


EASY-BUG merkte ich, 
daß nur jedes ungerade 
Byte geschrieben wurde. 
Dies war noch eine Eigen¬ 
art des 99er, der sich als 
16-Biter den Luxus er¬ 
laubt, gleich zwei Bytes 
hintereinander zu lesen, 
und zwar ohne Pause. 

Die dynamischen RAMs 
hatten also gar keine 
Chance, sich nach dem er¬ 
sten Byte zu erholen, um 


)2000 auf )0000 legen 
(bei Zugriff auf )2000- 
Platine, A2 abschalten) 
Dann A0 zum Umschalten 
benutzen: 

A0=0-LOW-Memory 1 

+HIGH-Memory 1 

A0= 1-LOW-Memory 2 

+HIGH-Memory2 
Dies kann mit einem einfa¬ 
chen Schalter bewerkstel¬ 
ligt werden. Da wir aber 
nicht alle als Weichenstel- 


ORDINATEUR FAMILIAL TEXAS IN5TRUMLN IS 


TI-CALC 


ler geboren werden, geht 
es wahrscheinlich besser 
mit einigen ICs (für die 
restlichen 5,- DM) und 
über DC1-DC4. 

Damit kann man dann die 
vier LOW+HIGH-Memo- 
rys auch noch getrennt 
schalten. Jedenfalls wette 
ich einen Kasten Bier ge¬ 
gen denjenigen, der ein 
besseres Preis-Leistungs¬ 
verhältnis zu bieten hat. 
Hier noch ein kleiner 
Hardware-Trick zum 
schonenden Umgang mit 
dem USER-PORT: 


ELEKTRONISCHE billigergehts 
KALKULATIONSTABELLE FÜR DEN 


TEXAS INSTRUMENTS 
HOME COMPUTER 99/4A 

J F MAlMlJlj A S OIIMIdI 


sich die Adresse des zwei¬ 
ten abzuholen! 
Glücklicherweise gibt es 
nun auf dieser Platine 
zwei freie 3-fach AND- 
Gatter sowie zwei Flip- 
Flops. Also zwei Flip- 
Flops und ein Gatter zu¬ 
sammen mit MEMEN 
(reset), Al 5 (erkennen 
zweiter Lese-Zyklus) und 
03 (Clock-Takt 3) erge¬ 
ben eine Erholungspause 
von 300ns (precharge) für 
die RAMs. 

Nun war der Erfolg total. 
Der 99er lief, als sei er mit 
dieser Platine geboren. 
Betrieb absolut fehlerfrei. 
Aber wer wird so einfach 
32K verschenken, wenn 
er deren 64 zur Verfügung 
hat? Banking heißt das 
Stichwort. Da gibt es ja 
noch ein freies Gatter auf 
der Platine und das muß 
man ausnützen. Also zu¬ 
erst LOWE-Memory von 


TI CALC GIBT ES DOCH! 

In Frankreich wurde unser 
Leser Marx fündig! Das bereits 
angekündigte, dann aber an¬ 
geblich verschrottete Tl-Calc 
gibt es. In Deutsch! 

Kostet keine 150 Mark und 
läuft auf jedweder Konfigura¬ 
tion! Programmierer: Don 
Douglas Bond Ass. Ltd., 2, 
Champden Terrace, Linden 
Gardens, Chiswik, London 
W 4, England. Offensichtlich 
produziert in Italien, mit 
deutschem Handbuch. 

Also: Bei einem Frankreich¬ 
besuch: Augen auf! 



Man nehme einen 50po- 
ligen Flachstecker mit 
geraden Pins 

— Säge ihn ab auf 44 
Pole wie gehabt 

— Stecke ihn auf den 
USER-PORT 

— Löte seine Hardware 
an eine 64polige DIN 
41617 Buchsenleiste 
und stecke diese nun 
auf die Pins des Flach¬ 
steckers 

(Dies erspart auch die 
Kneifzange beim Hard¬ 
ware-Testen) 

Übrigens, die nächste 
Hardware-Entwicklung ist 
schon geplant. Falls alles 
klappt und mein 99er 
kommenden Winter über¬ 
lebt, wird er sich wahr¬ 
scheinlich im Frühjahr 
eines Disk-Kontrolers er¬ 
freuen können. Dieser soll 
wiederum, getreu dem 
Motto billiger geht’s nim¬ 
mer, so um die 100,— 

DM kosten. 

Zum Schluß möchte ich 
noch mit einem alten 
Aberglauben aufräumen. 
Nämlich dem, daß man 
in der LOW-Memory kei¬ 
ne Basic-Programme ab- 
legen kann. Der Weg ist 
folgender: 

)NEW 

)CALL INIT 
)100 REM 
)SAVE MINIMEM 
Von jetzt an vergißt die 
LOW-Memory ihre 
Assembler-Affinitäten und 
schluckt brav: 

)SAVE EXPMEM1 
)OLD EXPMEM1 

Armand Marx 






TIPS & TRICKS 


PINBELEGUNG 
AUF EINEN BLICK 


Viele Tl-User sind — der Not gehorchend - 
zu Lötkolben-Rastellis geworden. Peripherie, die 
nicht mehr erhältlich ist, wird selbst gebaut. 
Immer wieder erreicht uns daher die Frage 
nach der Pin-Belegung des I/O-Port. 

Hier ist sie. Die Leitungen AO bis A15 sind Adress¬ 
ierungen, D 0 bis D 7 Datenleitungen. 

Und wenn wir schon dabei sind, hier auch noch 
gleich anschließend die Belegung des internen 
Steckers in der Modulbox. Doch Vorsicht: 

Die I/O-Pins führen direktemang ins Herz der 
Maschine, Fehler wirken sich entsprechendübel aus. 
Der Schrottplatz winkt! 


PIN-Nr. 

Mne morde Erläuterung 

01 


+ 5 Volt geregelt 

02 


+ 5 Volt geregelt 

03 

GND 

Masse (Logikmasse) 

04 

Ready A 

System bereit 

05 

GND' 

wie PIN 03 

06 

Reset 

Systemgesteuerter Reset 
(Aktiv=LOW) 

07 

GND 

wie PIN 03 

08 

SCLK 

System-Takt 

09 

LCP 

CPU-Indikator (1=TI 99/4; 

0=TI 99/4A) 

10 

Audio 

Audiosignal 

11 

RBDENA 

Remote data bus driver 
(Aktiv=LOW) 

12 

PCBEN 

Platipenansteuerung für 
„bum-in“ (Aktiv=HIGH) 

13 

HOLD 

CPU HOLD Anforderung 
(nur TI 99/4A) 

14 

IAQHA 

Logisch ODER bei IAQ 
HOLDA (nur TI 99/4A 

15 

SENILA 

Interrupt Level A Sense Enable 
(für PCC vorgesehen) 

16 

SENILB 

Interrupt Level B Sense Enable 
(Für PCC vorgesehen) 

17 

INTA 

Interrupt Level A (Unterbre¬ 
chungsebene; Aktiv= LOW) 

18 

LOAD 

LOW bei TI 99/4 Speicher- 


erweiterung 

HIGH bei freiem Speicherplatz 
TMS9900 LOAD input 
(nur TI 99/4A) 


19 

D7 

System Data Bus, least 
significant bit 

20 

GND 

wie PIN 3 

21 

D5 

System Data Bus 

22 

D6 

System Data Bus 

23 

D3 

System Data Bus 

24 

D4 

System Data Bus 

25 

Dl 

System Data Bus 

26 

D2 

System Data Bus 

27 

GND 

wie PIN 3 

28 

DO 

System Data Bus, most 
significant Bit 

29 

A14.A 

Adress Bit 

30 

A15/ 



CRUOUT.A Adress Bit, least 
significant Bit 


31 

A12.A 

Adress Bit 

32 

A13.A 

Adress Bit 

33 

A10.A 

Adress Bit 

34 

All.A 

Adress Bit 

35 

A08.A 

Adress Bit 

36 

A09.A 

Adress Bit 

37 

A06.A 

Adress Bit 

38 

A07.A 

Adress Bit 

39 

A04.A 

Adress Bit 

40 

A05.A 

Adress Bit 

41 

A02.A 

Adress Bit 

42 

A03.A 

Adress Bit 

43 

A00.A 

Adress Bit 

44 

A01.A 

Adress Bit 

45 

AMB.A 

Adress Bit, normalerweise 
“HIGH” 

46 

AMA.A 

Adress Bit, normalerweise 
“HIGH” 

47 

GND 

wie PIN 03 

48 

AMC.A 

Adress Bit, most significant^ 
Bit, normalerweise “HIGH” 

49 

GND 

wie PIN 03 

50 

CLKOUT 

CPU Takt, Aktiv=LOW 

51 

CRUCLK.A 

CPU-Taktausgang, 

Aktiv+LOW 

52 

DBIN.A 

Data Bus Dir’tn, 
HIGH=CPU-Read 

53 

GND 

wie PIN 03 

54 

WE.A 

CPU Schreibsteuerung (LOW) 

55 

CRUIN 

CRU Input Data (HIGH) 

56 

57 

58 

59 

60 

MEMEN.A 

Speicheranfrage (Aktiv+LOW) 
-12 Volt geregelt 
-12 Volt geregelt 
+ 12 Volt geregelt 
+ 12 Volt geregelt 


I/O PORT PIN ASSIGNMENT 
PERIPHERAL I/O PORT 


PIN 

DESCRIPTION 

PIN 

DESCRIPTION 

1 

+5 VOLT 

2 

SBE (Speech Select) 

3 

RESET 

4 

EXT INT 

5 

A5 

6 

A10 

7 

A4 

8 

All 

9 

DBIN 

10 

A3 

11 

A12 

12 

READY/HOLD 

13 

LOAD 

14 

A8 

15 

A13 

16 

A14 

17 

A7 

18 

A9 

19 

A15 

20 

A2 

21 

GND 

22 

CRU CLK 

23 

GND 

24 

03 

25 

GND 

26 

WE 

27 

GND 

28 

MBE 

29 

A6 

30 

Al 

31 

A0 

32 

MEMEN 

33 

CRU IN 

34 

D7 

35 

D4 

36 

D6 

37 

DO 

38 

D5 

39 

D2 

40 

Dl 

41 

HOLD/IAQ 

42 

D3 

43 

-5 VOLT 

44 

SPEECH 


l/l 




TIPS & TRICKS 


DER DEBUGGER 
UND SEINE 
MÖGLICHKEITEN 


Aufgrund der Tatsache, 
daß die Zahl der Editor/ 
Assembler-Besitzer lau¬ 
fend steigt und somit eben¬ 
falls (hoffentlich) der 
Assembler Programmierer, 
habe ich mich entschlos¬ 
sen, Teile des Debuggers 
näher zu erläutern. 

Nach genauem Studium, 
sowohl der englischen als 
auch der deutschen Be¬ 
schreibung, zeigten sich 
einige Mängel, die ich hier¬ 
mit beheben möchte. Der 
erste Befehl auf den ich 
näher eingehen möchte, 
gestattet das Auslesen des 
Assemblermoduls, sowie 
das Inspizieren sämtlicher 
Grom-Module. 

Mit dem Kommando 
M G6000,7800 zeigt sich 
der Inhalt des E/A-Moduls, 
das nach dem Laden des 
Debuggers auch aus dem 
Gromport entfernt werden 
kann. Jetzt könnte z.B. 
das Statistik-Modul ins 
Port gesteckt und ausgele¬ 
sen werden, wenn nicht 
beim Einschub eines Mo¬ 
duls ein Resetimpuls auf¬ 
trete n würde. 

Dieser Reset kann auf ein¬ 
fache Weise bei Modulen, 
die nur mit Groms 
(Graphic Read Only Me- • 
mory) bestückt sind, außer 
Kraft gesetzt werden. Die 
nachfolgende Liste führt 
einige dieser Module auf: 
Ti-Writer 

Text- und Dateiverwaltung 

Edi tor/Assem bler 

Datenverwaltung und 

Analyse 

Statistic 

Multiplan 

Buchungsjoumal 

Wumpus 

Speech-Editor 

Amazing 

Adventure usw. 

Sollten Sie im Zweifel dar¬ 
über sein, ob Ihr Modul 
ein reines Grom-Modul ist, 
genügt das Öffnen des 
Gehäuses. 

Treten dabei nur ICs zuta¬ 
ge mit maximal 16 An¬ 
schlüssen, so besteht kein 
Zweifel, daß es sich um ein 


nur mit Groms bestücktes 
Modul handelt. Zum Aus¬ 
lesen des Moduls genügt 
das Überkleben des Pins 1 
mit einem Stück Tesafilm. 
Dieser Pin befindet sich, 
wenn Sie Ihr Modul von 
vorne betrachten (Stecker¬ 
seite, die in den Grom- 
schlitz gesteckt wird), 
rechts unten. Nach dieser 
Behandlung können Sie 
Ihr Modul jetzt in das 
Grom-Port stecken und 
auslesen. 


MODIFIKATION OHNE 
EINGRIFFE 


Diese Modifikation kann 
ohne irgendwelche Ein¬ 
griffe ins Modul auch von 
außen durchgefiührt wer¬ 
den. 

Die nachfolgende Tabelle 
zeigt die gültigen Adreß- 
bereiche der Groms: 

M G6000,7800 Grom 1 
M G8000,9800 Grom 2 
M GA000,B800 Grom 3 
M GC000,D800 Grom 4 
M GE000,F800 Grom 5 

Noch ein Tip zum Aus¬ 
lesen. 

Leider hat sich gezeigt, daß 
manchmal trotz „Spezial¬ 
behandlung“ ein Reset 
auftritt. Dieser Fehler kann 
durch folgende Punkte 
weitgehend eingedämmt 
werden. 

1. Start des Debuggers 

2. Befehl M 0,FFFF 

3. Entfernen des E/A- 
Moduls 

4. Einstecken des auszule¬ 
senden Moduls 

5. Anhalten der Auflistung 
mit FCTN X 

6. Auslesen laut obiger 
Tabelle 

7. Bei Absturz Neu 
beginn mit Punkt 1 


DSR AUSLESEN 


Der zweite Befehl, auf den 
ich näher eingehen möch¬ 
te, bezieht sich auf das 
Auslesen der Peripherie- 
Roms (DSR). 

Die meisten Karten, u.a. 
P-Code, RS232, Controller, 
beinhalten ein Rom mit 
ihrem Betriebssystem. Die¬ 
se Karten liegen auf fol¬ 
genden CRU-Adressen. 


1100 Controller 
1300 RS232 I 

1500 RS232 II 

1800 Thermalprinter 
1F00 P-Code 

Der Adreßbereich des DSR- 
Roms befindet sich bei 
4000 - 5FFF. Je nach 
Notwendigkeit wird vom 
System eines der Periphe¬ 
riegeräte zu- oder abge¬ 
schaltet. Dieses Zuschal¬ 
ten bei Gebrauch bietet ge- 
gegenüber anderen Com¬ 
putersystemen den Vorteil, 
daß bei einer Peripherie¬ 
erweiterung kein Rambe- 
reich verloren geht. 

Wie kann man nun z.B. 
das Betriebssystem der 
RS232 I auslesen? 

Mit dem Kommando 
C 1300,1 <Enter> erfolgt 
die Ausgabe C 1300,XXXX 
die mit einer Eingabe von 
1 <Enter> abgeschlossen 
wird. Nun können Sie das 
Rom im Bereich 4000— 
5FFF auslesen. 


AUCH FÜR 
MINIMEMORY 


Der Befehle 1300,1 be¬ 
wirkt dabei, daß nur ein 
Bit ab der Cru-Adresse 
1300 Hex ausgegeben wer¬ 
den kann. C 1300,0 würde 
eine 16 Bit breite Ausgabe 
ab 1300 erlauben. 

Bevor Sie nun ein anderes 
Rom auslesen, muß erst 
das Cru-Bit bei 1300 zu¬ 
rückgesetzt werden. Das 
Rücksetzen erfolgt mit: 

C 1300,l<Enter> 
Ausgabe C 1300,XXXX 
Eingabe 0 <Enter> 



Sollte jemand seine spiele¬ 
rische Ader mit dem Ein- 
bzw. Ausschalten der 
Peripherie-Leuchtdioden 
befriedigen wollen, so 
kann er dies durch das 
Senden eines Bits auf fol¬ 
genden Adressen: 

1100 /II00 Controller 
130E /1300 RS232 I 
150E /1500 RS232 II 
1F00 /1F00 P-Code 


Led ein bzw. aus / Bit 
setzen zum Auslesen der 
DSR (DSR=Device Ser¬ 
vice Routine). 

Aus dieser Tabelle wird 
erkennbar, daß sowohl bei 
der Controller- als auch 
der PCode-Karte nur ein 
Bit für das Aufleuchten 
der Led und das gleich¬ 
zeitige Auslesen gesetzt 
werden muß. 

Zum Schluß möchte ich 
noch anmerken, daß auch 
Minimemory-Besitzer den 
Debugger starten und so¬ 
mit verwenden können. 
Eine Kopie von einem 
Freund oder Bekannten 
wird sich bestimmt als 
nützlich erweisen. 

Reiner Ziegler 


Externes V24 INTERFACE! 

bidirektional 
programmierbar in Basic 
oder durch Modul 
zum Anschluß eines 

TI 99/4A 

AKUSTIKKOPPLERS, 


Terminals oder Drucker direkt 

an die Konsole 

G.v.M. 

DM 298 incl MWSt. 

Gerhard &V. Megern 

Lieferung per Nachnahme 

Höhenstr. 746 

oder Vorkasse zuzügl. 

4000 Düsseldorf 

5 DM Versandkosten 

Tel. 0211/776577 

6 Monate Garantie 
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GRAPHIKTABLETT 

Nachdem Graphiktabletts 
für viele Heimcomputer 
schon seit einiger Zeit im 
Handel erhältlich sind 
freuten wir uns sehr, als 
uns die Firma Hega-Soft 
in München nach langer 
Zeit endlich das Graphik¬ 
tablett für den TI 99/4A 
für Testzwecke zur Ver¬ 
fügung stellen konnte. 

Der Lieferumfang besteht 
aus dem Graphiktablett 
selbst, dem Anschluß¬ 
modul sowie einem klei¬ 
nen englischen Handbuch. 
Weiteres Zubehör ist 
nicht notwendig. Dieses 
Tableau läuft bereits mit 
der Grundversion der 
Konsole. Der Anschluß 
ist kinderleicht. Das An¬ 
schlußmodul in den Mo¬ 
dulschacht gesteckt und 
einen Zeichenstift in den 
Zeichenarm eingeklemmt. 
Am Bildschirmmenü wäh¬ 
len wir nun die Option 2 
für das Graphiktablett 
aus. Alle weiteren Opera¬ 
tionen werden dann mit 
dem Kontrollarm des 
Graphiktabletts sowie den 
Tasten am Tablett selbst 
angewählt. 


Dieses Graphiktablett, ge¬ 
nannt Supersketch, spricht 
sowohl Kinder als auch 
Erwachsene an. Es stellt 
eine der einfachsten Mög¬ 
lichkeiten, sich mit dem 
Gebrauch von Computer¬ 
graphik vertraut zu ma¬ 
chen, dar. Sämtliche 
Kommandos werden über 
eine Menüleiste am Bild¬ 
schirmrand angewählt, 
eine der einfachsten Mög¬ 
lichkeiten, sich im Um¬ 
gang mit Computern zu 
üben. Sie können jedoch 
nicht nur einfache Gra¬ 
phikbilder mit dem 
Supersketch erzeugen, 
sondern auch professio¬ 
nelle Balken- und Torten¬ 
graphik. 

Im begefiigten Starterkit 
sind sechs verschiedene 
einfache Graphikbilder 
vorgegeben, um die ersten 
Malversuche zu erleich¬ 
tern. 


Im Gegensatz zu den 
Supersketchversionen, die 
auch für andere Computer 
angeboten werden, kön¬ 
nen Sie mit der Tl-Version 
die Zeichenbilder auch ab¬ 
speichern. Bisher geht das 
leider nur auf Kassette. 

Sie wählen zum Speichern 
aus dem Expertmenü die 
Save- bzw. zum Einladen 
die Load-Routine an. 

Alles weitere funktioniert 
genauso, als ob sie die 
Kassettenroutine aus ei¬ 
nem Basicprogramm her¬ 
aus angewählt hätten; also 
wie gewohnt. 

Die Funktion RW-FF er¬ 
laubt es, den Kassetten- 
\br- bzw. Rücklauf anzu¬ 
steuern. 

Gesamtbewertung: Super¬ 
sketch ist ein neues Peri¬ 
pheriegerät, das es ermög- 


Instrument-Version ele¬ 
gant gelöst worden. Um 
gerade Linien zu ziehen, 
stehen die Zusatzbefehle 
des Expertmenüs zur Ver¬ 
fügung. Somit kann man 
dem Arm keinen Minus¬ 
punkt mehr geben. Posi¬ 
tiv anzumerken ist, daß 
die erzeugten Bilder ab¬ 
gespeichert werden kön¬ 
nen, jedoch leider, und das 
ist negativ, nur auf Kasset¬ 
te und nicht auf Diskette. 
Unserer Meinung nach ein 
interessantes Zusatzgerät, 
dessen Kauf sich durch¬ 
aus lohnen kann. 

PROGRAMME MIT 
HARDCOPY 

Zu den Programmen 3-D- 
World und Graphikmaster 
sind, wie uns der deutsche 



licht, ohne Computer¬ 
kenntnisse bereits anspre¬ 
chende Bilder auf dem 
Bildschirm zu erzeugen. 
Besonders hervorzuheben 
ist, daß dieses Gerät be¬ 
reits mit der Grundversion 
der Konsole funktioniert. 
Der Bedienungsarm schien 
uns am Anfang etwas 
wacklig; doch dieses Pro¬ 
blem ist bei der Texas 


A meni> ot opeiatmg luno.tions 
on Ihe scieen You the'efore ne\j 
gtapht Deinn creaiecl When rw g 
ihe menu may Be einrvnated. a 
aulcniaiicaliv Ml iBe screen So« 
nienu tuncticns fiepend enlite ; y u 
ef ihe rompatibte Computer and ■ 

INCLUDEDW TA 

•ocüjaetl :n Uns pacfcagc :s an 
super grapü«, on von' compu'er • 

the Super Skale.B Conl'-jn.- 
ra’f'n.ge mat isccmpapiw *'•!'»" 
nesicnatec b* Ibe S- : »er 
scnai Petipberais ma' , -jfacni'OS 


Lizenznehmer mitteilte, 
nunmehr auch für die gän¬ 
gigsten Druckermodelle 
Hardkopie-Routinen in 
Maschinensprache erhält¬ 
lich. Der empfohlene Ver¬ 
kaufspreis der Graphik¬ 
programme incl. Hard- 
kopie-Routine soll bei ca. 
13.0 DM liegen. Bezugs¬ 
quellen: Der einschlägige 
Fachhandel. 


ZEITMESSUNG 
MIT DEM TIX 

Auch denjenigen Besitzern 
eines TI 99/4A, die nur 
über das Extended Basic 
Modul verfügen, ist es mög¬ 
lich, über ein kleines Pro- 
.gramm eine relativ genaue 
Zeitmessung vorzunehmen. 
Es wurde als Unterpro¬ 
gramm geschrieben und 
läßt sich leicht in vorhan¬ 
dene Programme einbauen. 
Der Aufruf erfolgt durch 
den Befehl CALL UHR. 

Man nutzt dabei die beson¬ 
deren Eigenschaften des 
Speicherplatzes 33657 der 
CPU, dem VDP-INTER- 
RUPTTIMER. Um in eine 
höhere Adresse als 32767 
zu PEEKen, muß hiervon 
zunächst 65536 abgezogen 
werden; daher der Befehl 
CALL PEEK (-31879, 

ZN). 

Der Inhalt dieses Speicher¬ 
platzes wird 50(!)mal in 
der Sekunde um eins er¬ 
höht und durchläuft dabei 
die Werte zwischen 0 und 
255. Diese Erhöhung er¬ 
folgt unabhängig vom 
laufenden Programm. Die 
Anzeige erfolgt in Stun¬ 
den (=H), Minuten (=M) 
und Sekunden (=S). Ande¬ 
re Anzeigemöglichkeiten 
erreicht man durch Ände¬ 
rung der Zeile 10030. Um 
Ungenauigkeiten durch 
Zeitsprünge zu vermeiden, 
ist lediglich sicherzustel¬ 
len, daß die Abfrage des 
Speicherinhaltes spätestens 
alle 5 Sekunden erfolgt. 
Dies läßt sich jedoch durch 
geeignete Platzierung des 
Unterprogrammaufrufes 
auf einfache Weise reali-. 
sieren. 

101TI-UHR 

20! von Berthold Wölfei¬ 
schneider 

Im Hopfengarten 17 

6200 Wiesbaden 
10000 SUB UHR 
10010 CALL PEEK ( 
(-31879,ZN)::Z=Z+ZN 
—ZA—255*(ZA>ZN):: 

IF Z<3000 THEN 10030 
10020 Z=Z—3000::M=M 
+1 ::IF M=60 THEN H=H 
+1 ::M=0 

10030 S=INT(Z/50)::ZA 
=ZN::DISPLAY AT 
(24,12): H;“;M;“ :”S 
::SUBEND 

Rerthold Wölfelschneider 
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1O0 REM ******************* 

* WAHL- 

“° REM * AUSWERTUNG 

120 REM * COPYRIGHT BY 

* ■ 

130 REM * NORMAN & LARS 
* 

140 REM * KELLER 

* 

150 REM * BEARBEITET VOM 

* 

160 REM * TEAM DES 

* 

170 REM * AKTUELL VERLAGES 
* 

180 REM * MUENCHEN 

* 

190 REM *BENOETI GTE GERAETE 
* 

200 REM * TI 99/4 A KONSOLE 
* 

210 REM * TI BASIC 

* 

220 REM * DISK.OD.CA3SETTE 
* 

230 REM * 

* 

240 REM * SPEICHERBELEGUNG 
* 

250 REM * 6498 BYTES 

* 

2 60 REM ******************* 
* 

270 CALL CLEAR 
280 DIM S (5) , R(5) 

290 F$= "FFFFFFFFFFFFFFFF " 

300 CALL CHAR<64,"3C4299A1A1 
99423C") 

310 CALL CHAR<91,"0024003C42 
427E42") 

320 CALL CHAR<93,"0024003C42 
42423C *' ) 

330 CALL CHAR<123,”003824282 
424282”) 

340 CALL CHAR<124,”004200424 
242423C”) 

350 CALL SCREEN <15) 

360 PRINT ”.************ 

**** ” 

370 PRINT ”.*. 

. . .*" 

380 PRINT ".* WAHL AUS WERT 

UNG*" 

” . * . .. 


400 PRINT ”.************ 

**** " 

4 10 PRINT ”.§BY. NORMAN 

. AND” 

420 PRINT ”.LARS KFL 

LER”::::: 

430 PRINT "...BITTE TASTE Di 
öcken":::: 

440 CALL KEY < O,K,ST) 

450 IF ST=0 THEN 440 
460 GOSUB 2490 
470 CALL CLEAR 
480 PRINT 

490 INPUT ”1.PARTEI21$ 

500 IF LEN(21$)>5 THEN 490 
510 PRINT 

520 INPUT ”2.PARTEI:":22$ 

530 IF LEN(22$)>5 THEN 520 
540 PRINT 

550 INPUT "3. PARTEI : 23$ 

560 IF LEN < 23$) >5 THEN 550 
570 PRINT 

580 INPUT "4.PARTEI24$ 

590 IF LEN < 24$) >5 THEN 530 
600 PRINT 

610 INPUT "5.FARTEI : " : 25$ 

620 IF LEN(25$)>5 THEN 610 
630 PRINT 

640 INPUT "STIMMEN: K 

650 IF K<>INT<K)THEN 640 
660 INPUT "UNGÜLTIG: " : N 
670 IF N<>INT<N)THEN 660 
680 IF K=N THEN 2460 
690 PRINT 

700 INPUT "STIMMEN FöR 1 . PAR 

tei: m :o 

710 IF 0<>INT(0)THEN 700 
720 PRINT 

730 INPUT "STIMMEN FöR 2. PAR 
TEI:":P 

740 IF P<>INT<P)THEN 730 
750 PRINT 

760 INPUT "STIMMEN FöR 3. PAR 
TEI *. " : Q 

770 IF Q<>INT<Q)THEN 760 
780 PRINT 

790 INPUT "STIMMEN FöR 4. PAR 
TEI:":2 

800 IF 2<>INT(2)THEN 790 
810 PRINT 

820 INPUT "STIMMEN FöR 5. PAR 
TEI:":X 

830 IF X<>INT<X)THEN 820 
840 M=K-N 

850 IF M<>0+P+Q+2+X THEN 243 
O 


390 PRINT 
. . . * " 











860 R1=0/M 

870 S(1)=INT<1000*R1)/10 
880 R2=P/M 

890 S(2)=INT(1000*R2)/10 
900 R3=Q/M 

910 S(3)=INT(1000*R3) / 10 
920 R4=Z/M 

930 S(4)=INT(1000*R4)/10 
940 R5=X/M 

950 S<5)=INT<1000*R5)/10 

960 IF S(l)+ S<2)+S<3)+S<4)+S 
(5)0100 THEN 2660 
970 P1*=STR*(S(1))&CHR$(37) 
980 P2*=STR$(S(2))&CHR$(37) 
990 P3$=STR$<S<3) )&CHRS<37) 
1000 P4$=STR^(S(4))&CHR*<37) 
1010 P5*=STR$(S(5))&CHR$(37) 
1020 CALL CLEAR 
1030 CALL SCREEN(12) 

1040 A$="STIMMENVERTEILUNG" 
1050 BS= ,, ======^ ======== = =" 

1060 FOR Z=1 TO LEN<A$) 

1070 CALL HCHAR(1,Z + 8,ASC(SE 
G*<A$,Z, 1) > > 

1080 NEXT Z 

1090 FOR Z=i TO LEN(BS) 

1100 CALL HCHAR (2,Z+8,ASC<SE 

G* <B$,Z, 1) ) ) 

lllO NEXT Z 

1120 T1=INT<20*R1) 

1130 U1=20*R1 
1140 T2=INT<20*R2) 

1150 U2=20*R2 
1160 T3=INT<20*R3) 

1170 U3=20*R3 
1180 T4=INT<20*R4) 

1190 U4=20*R4 
1200 T5=INT(20*R5) 

1210 U5=20*R5 

1220 IF TlOUl THEN 1230 ELS 
E 1240 

1230 GOSUB 1910 

1240 CALL CHAR(94,FSO 

1250 CALL COLOR<8,2, 12) 

1260 FOR A=23 TO 24-T1 STEP 
-1 

1270 CALL HCHAR(A,2,94,5) 
1280 NEXT A 

1290 IF T2< >U2 THEN 1300 ELS 
E 1310 

1300 GOSUB 1960 
1310 CALL CHAR(144,F*) 

1320 CALL COLOR<15,7,12) 

1330 FOR B=23 TO 24-T2 STEP 
-1 


1340 CALL HCHAR(B,8,144,5) 
1350 NEXT B 

1360 IF T3< >U3 THEN 1370 ELS 
E 1380 

1370 GOSUB 2010 
1380 CALL CHAR(123, F$) 

1390 CALL COLOR<13,8,12) 

1400 FOR C = 23 TO 24-T3 STEP 
- 1 

1410 CALL HCHAR(C,14,128,5) 
1420 NEXT C 

1430 IF T4< >U4 THEN 1440 ELS 
E 1450 

1440 GOSUB 2060 
1450 CALL CHAR <136,¥%) 

1460 CALL COLOR(14, 13, 12) 

1470 FOR D=23 TO 24-T4 STEP 
- 1 

1480 CALL HCHAR(D,20,136,5) 
1490 NEXT D 

1500 IF T50U5 THEN 1510 ELS 
E 1520 

1510 GOSUB 2110 
1520 CALL CHAR(96,FS) 

1530 CALL COLOR(9,14,12) 

1540 FOR E=23 TO 24-T5 STEP-1 
1550 CALL HCHAR(E,26,96,5) 
1560 NEXT E 

1570 FOR X=1 TO LEN(Zl^) 

1580 CALL HCHAR <22-Tl,X+l,AS 
C <SEG*(Z1S,X, 1) ) ) 

1590 NEXT X 

1600 FOR X=1 TO LEN<Z2*) 

1610 CALL HCHAR<22-T2,X+7,AS 
C <SEG$(Z2$,X,1) ) ) 

1620 NEXT X 

1630 FOR X=1 TO LEN<Z3*) 

1640 CALL HCHAR(22-T3,X+13, A 
SC <SEG$(Z3$,X,1) ) ) 

1650 NEXT X 

1660 FOR X=1 TO LEN(Z4^) 

1670 CALL HCHAR(22-T4,X+19,A 
SC <SEG*(Z4*,X, 1) ) ) 

1680 NEXT X 

1690 FOR X=1 TO LEN(Z5$) 

1700 CALL HCHAR <22-T5,X + 25,A 
SC(SEG$(Z5$,X,1))) 

1710 NEXT X 

1720 FOR Y=1 TO LEN(Pl^) 

1730 CALL HCHAR<24,Y+l,ASC<S 
EG^<P1«,Y, 1) ) ) 

1740 NEXT Y 

1750 FOR Y— 1 TO LEN<P2*) 

1760 CALL HCHAR(24,Y+7,ASC(S 
EG$< P2^,Y, 1) ) ) 


IR 




1770 NEXT Y 

1780 FOR Y=1 TO LEN(P3*) 

1790 CALÜ HCHAR(24,Y+13,ASC( 
SEGS<P33i, Y, 1) ) ) 

1800 NEXT Y 

1810 FOR Y—1 TO LEN(P4$> 

1820 CALL HCHAR(24,Y+19,ASC( 
SEGS(P4*,Y,1))) 

1830 NEXT Y 

1840 FOR Y=1 TO LEN(P5*> 

1850 CALL HCHAR(24,Y+25,ASC( 
SEG^(P5$,Y,1))) 

1860 NEXT Y 

1870 CALL KEY(O,K,ST) 

1880 IF ST=0 THEN 1870 
1890 IF (K=74>+(K=106)=0 THE 
N 2780 

1900 GOTO 470 
1910 QX=(U1-T1)*8 
1920 CD=95 
1930 SP=23-T1 
1940 LD=2 
1950 GOTO 2150 
1960 QX=(U2-T2)*8 
1970 C D=145 
1980 SP=23-T2 
1990 LD=8 
2000 GOTO 2150 
2010 QX=(U3-T3)*8 
2020 CD=129 
2030 SP=23-T3 
2040 LD= 1 4 
2050 GOTO 2150 
2060 QX=(U4-T4)*3 
2070 CD=137 
2080 SP = 23-T 4 
2090 LD=20 
2100 GOTO 2150 
2110 QX=<U5-T5)*3 
2120 CD=97 
2130 SP=23-T5 
2140 LD=26 

2150 IF QX=0 THEN 2240 
2160 IF QX< = 1 THEN 2260 

2170 IF Q X < = 2 THEN 2280 

2180 IF QX< =3 THEN 2300 

2190 IF QX<=4 THEN 2320 

2200 IF QX< =5 THEN 2340 

2210 IF QX<=6 THEN 2360 

2220 IF QX< =7 THEN 2380 

2230 IF QX< 8 THEN 2400 
2240 CALL CHAR (CD, H 11 ) 

2250 GOTO 2410 

2260 CALL CHAR(CD, H OOOOOOOOO 
OOOOOFF") 


2270 GOTO 2410 

2280 CALL CHAR(CD,"OOOOOOOOO 
OOOFFFF") 

2290 GOTO 2410 

2300 CALL CHAR(CD,"OOOOOOOOO 
OFFFFFF") 

2310 GOTO 2410 

2320 CALL CHAR(CD,"OOOOOOOOF 
FFFFFFF") 

2330 GOTO 2410 

2340 CALL CHAR(CD,"OOOOOOFFF 
FFFFFFF") 

2350 GOTO 2410 

2360 CALL CHAR(CD,"OOOOFFFFF 

FFFFFFF") 

2370 GOTO 2410 

2380 CALL CHAR(CD,”OOFFFFFFF 
FFFFFFF") 

2390 GOTO 2410 

2400 CALL CHAR(CD,"FFFFFFFFF 
FFFFFFF") 

2410 CALL HCHAR(SP,LD,CD,5) 
2420 RETURN 

2430 CALL SOUND(100,440,2) 
2440 PRINT "EINGABE ÖBERPRÖF 
EN:PARTEI-..STIMMENZAHL UNGL 
EICH ZAHL...DER GöLTIGEN STI 
MMEN !" 

2450 GOTO 640 
2460 CALL SOUND(100,440,2) 
2470 PRINT "IHRE EINGABE IST 
FALSCH: DIEGESAMTSTIMMENZAH 
L DARF NICHTNULL SEIN!" 

2480 GOTO 640 

2490 REM PROGRAMMBENUTZUNG 
2500 CALL CLEAR 
2510 PRINT "DIESES PROGRAMM 
STELLT DURCH EIN SCHAUBILD D 
IE STIMMEN- VERTEILUNG DAR,D 
IE AUS EINER WAHL RESULTIERT 


2520 PRINT "ES KÖNNEN 5 VERS 
CHIEDENE ’PARTEIEN ? ANGEG 

EBEN WERDEN.AUäERDEM WERDEN 
DIE JEWEI- LIGEN PROZENTUAL 
EN STIMMEN- ANTEILE AUSGEDRU 
CKT . " 

2530 PRINT "DIE LÄNGE DER ’P 
ARTEI’-NAMEN DARF NICHT MEHR 
ALS 5 BUCH-STABEN BETRAGEN. 


2540 PRINT "BEI FALSCHEN ZAH 
LENEINGABEN WERDEN ENTSPRECH 
ENDE HIN- WEISE AUSGEGEBEN 
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2550 PRINT 
UBILD ER- 


"NACHDEM DAS SCHA 
SCHIENEN IST, Kü 
NNEN SIE ’J’FöR NOCHMALIGE P 
ROGRAMMAN- WENDUNG DRöCKEN. 

ANSONSTEN WIRD DAS PROGRAM 
M BEENDET." 

2560 PRINT "BITTE TASTE DRÖC 
KEN ! " 

2570 CALL KEY<0,K,ST) 

2580 IF ST = 0 THEN 2570 

2590 CALL CLEAR 

2600 PRINT "WICHTIG !!!" 


2610 PRINT 
LEN, DIE 


"ES IST ZU EMPFEH 
7 PARTEI * -NAMEN I 
N GROäBUCH- STABEN EINZUGEBE 
N, DA SONST DAS SCHAUBILD ZU 
BUNT WIRD." 

2620 PRINT "ZUM PROGRAMMSTAR 

T.TASTE DRÖCKEN ! " 

2630 CALL KEY(0,K,ST) 

2640 IF ST=0 THEN 2630 

2650 RETURN 

2660 R < 1 ) =R 1 

2670 R ( 2 ) =R2 

2680 P ( 3 ) =R3 

2690 R(4)=R4 

2700 R(5)=R5 

2710 FOR 1=1 TO 5 

2720 DF(I)=R(I)*10000-(10*IN 

T < R ( I >-*1000) ) 

2730 IF INT(DF(I))>4 THEN 27 

40 ELSE 2760 

2740 S(I)=S(I> +. 1 

2750 IF S<1)+S(2)+S(3)+S(4)+ 

S(5)=100 THEN 2770 

2760 NEXT I 

2770 GOTO 970 

2780 END 


WAHL 


Wenn auch im Aufbau einfach, so ist dies, gerade \ve- 

P en seiner Schlichtheit, ein sehr schönes BÄSIC- 
rogrammü! 

Gut geeignet bei Vereinswahlen, es weist verblüffen¬ 
de Effekte vor. 

PROGRAMMBESCHREIBUNG ZUM 
PROGRAMM „WAHLAUSWERTUNG“ 


Dieses Programm berechnet die prozentuale Stim¬ 
menverteilung einer Wahl und stellt sie grafisch — 
als Balkendiagramm — dar. Es können maximal 5 
verschiedene Parteien eingegeben werden, deren 
Namen über den zugehörigen Balken angezeigt 
werden. 

Aufgrund Platzmangels kann die Prozentangabe nur 
bis auf eine Stelle nach dem Komma ausgegeben 
werden. 


Zur Anwendung kann das Programm bei Wahlen 
aller Art kommen, z.B. bei Landtagswahlen, Kom¬ 
munalwahlen, aber auch bei Wahlen kleineren Um¬ 
fangs (Sportverein, Club, etc.). 

Hier einige direkte Programmerläuterungen: 

Zeile 300-340 : Definition der Umlaute, 

“ß” und “©” 


Zeile 490—830 : 
Zeile 840-960 : 

Zeile 1120-1830: 

Zeile 1910-2420: 


Zeile 2660-2760 : 


Eingabe-Block 

Berechnung der prozentualen 
Stimmanteile 
Aufbau und Anzeige des 
Balkendiagramms 
Programmroutine zur grafi¬ 
schen Anzeige der Stimman¬ 
teile, die sich nicht als „voller“ 
Block darstellen lassen 
Routine zum Überprüfen, ob 
Prozentsumme 100 ergibt. 


Eine Vielzahl von Einsendungen erreichte uns leider 
in stark beschädigtem Zustand. Bei einer Reihe von , 
Briefen fehlten die Kassetten oder die Begleitschrei¬ 
ben oder waren diese vertauscht. Dies kam daher, 
daß die viel zu dünnen Umschläge unterwegs aufge¬ 
platzt waren. Die Deutsche Bundespost hat sich 
zwar größte Mühe gegeben, die Sendungen noch zu 
verpacken und zu retten, was noch zu retten war, 
aber immer ging es halt leider nicht. 

Auch waren einige Kassetten und Disketten so 
stark beschädigt, daß wir sie nicht mehr verwenden 
konnten. Unsere Bitte: Kassetten und Disketten 
nach Möglichkeit in Luftpolstertaschen an uns sen¬ 
den, da diese erfahrungsgemäß am wenigsten anfäl¬ 
lig sind. 


KLETTERMAX 


Ein Monteur muß auf einem Gerüst Brückenteile 
entfernen und dadurch Punkte sammeln. Er muß 
sich aber ganz schön beeilen, da das Gerüst nach 
und nach verschwindet. Desto mehr Brückenteile 
durch Überlaufen abgebaut wurden, desto schneller 
demontiert sich das Gerüst selbst. Als zusätzliche 
Schwierigkeit erscheint von Zeit zu Zeit eine Bombe, 
begleitet von einem Warngeräusch. Führen Sie nun 
den Monteur in Richtung der Bombe. Nach dem 
2. Signal kann er nun die Bombe durch die Taste 
‘2’ entschärfen und kassiert dafür Bonuspunkte. 

Aber Vorsicht, nach dem 2. Signal kann die Bombe 
jeden Augenblick explodieren. Ist der Monteur 
dann in Reichweite der Bombe so ist sein Leben be¬ 
endet, andernfalls reißt die Bombe „nur“ ein Loch 
ins Gerüst. Um dem armen Monteur das Leben aber 
nicht ganz so schwer zu machen, wurden ihm einige 
Hilfsmittel mit auf den Weg gegeben: Mit der Taste 
T macht der Monteur einen kleinen Sprung über 
eine Lücke oder in die nächst höhere oder tiefere 
Ebene. Taste ‘K‘ und Taste ‘L‘ sind ebenfalls für 
Sprünge reserviert, nur daß die Sprünge jeweils län¬ 
ger ausfallen. Sie haben pro Runde und Taste je¬ 
weils 2 Sprünge zur Verfügung. Die Richtung be¬ 
stimmen Sie mit den Pfeiltasten. Und sollte der 
Monteur mal abstürzen, ist nicht schlimm, er hat 
durch Taste ‘1‘ einen Fallschirm zur Verfügung, der 
ihn sicher in-der nächsten Ebene landen läßt, aber 
nur einmal pro Runde benutzt werden darf. Am 
Ende des Spieles können Sie sich in eine Bestenliste 
eintragen und diese abspeichern. Vielleicht errei¬ 
chen Sie beim nächsten Mal mehr Punkte? 

/. Wolters 
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1 10 

REM* Kletter-max * 






410 

NEXT 

I 

120 

REM* Copyright by *. 

420 

CLOSE #1 



430 

REM ZEICHEN DEFINIEREN 

130 

REM*’ Joerg Wolters * 

440 

CALL 

CHAR•123,"0018133C5 



Al 82 

442" ) 


140 

REM* * 

450 

CALL 

CHAR(129,"7EFF183C5 



A182442") 


150 

REM* Bearbeitet vom * 

460 

CALL 

CHAR(136,"0081C3FFF 



FC381") 


160 

REM* Team V des * 

470 

CALL 

CHAR(137,"FFFF4224F 


V 

F2A4 

2FF" ) 


170 

REM* Aktuell Verlages * 

480 

CALL 

CHAR(144,"FFFFFFFF" 

180 

REM* Muenchen * 

490 

CALL 

CHAR(153,"FFFFC3C3C 



3C3C3C3’ 1 ) 


1 90 

REM* * 

500 

CALL 

CHAR(152,"FFFFC3A59 



9A5C3FF") 


200 

REM*Benoetigte Geraete* 

510 

CALL 

CHAR(43,"0609183C7E 



7E3C18") 


2 10 

REM* TI99/4A Konsole* 

520 

CALL 

CHAR(42,"95563CFF3C 



DE2D4A") 


220 

REM* * 

530 

RANDOMIZE 



540 

REM 1 

FAREGEBUNG 

230 

REM* Speicherbelegung * 

550 

CALL 

CLEAR 



560 

CALL 

SCREEN(2) 

240 

REM* 10766 Bytes * 

570 

CALL 

COLOR(2,10,2) 

250 

REM* * 

580 

CALL 

CC'LOR (13,11,2) 



590 

CALL 

COLOR(14,6,2) 

260 

R E M******************** 

600 

CALL 

COLOR(15,13,5) 



6 10 

CALL 

COLOR(16,9,2) 

270 

DIM LIST«(20),PUNKTE(20) 

620 

PZC = 

1000 

280 

RANDOMI2E 

630 

CON TR4=1 

290 

CALL CLEAR 

640 

O 

II 

N 

Q. 


300 

PRINT "***************** 

650 

RA= 1 


**********" : "****. . . .KLETTER 

660 

AZ = 3 


-MAX 

. . . .****•': "************* 

670 

REM 

GERUESTAUFBAU 

** *** ********* “ 

680 

CALL 

CLEAR 

310 

PRINT "...BY ’JOERG W0L.T 

690 

ZE = 32 

ERS" 

: 516 DUEREN-7" 

700 

CÜNTR5=0 

320 

FOR 1=1 TO 400 

710 

READ 

I 

330 

NEXT I 

720 

READ 

APA 

340 

PRINT "WENN SIE DIE BEST 

730 

FOR 

J=1 TO I 

ENTABELLE" :"EINLADEN WOLLEN, 

740 

READ 

Y,X,W 

DANN 

"DRUECKEN SIE DIE LEE 

750 

CALL 

HCHAR(Y,X,137,W) 

RT ASTE": "SONST ""S. 

760 

NEXT 

J 

350 

CALL KEY(0,Al,Bl) 

770 

READ 

I 

360 

IF B1=0 THEN 350 

780 

FOR 

J = 1 TO I 

370 

IF A1< >32 THEN 430 

790 

READ 

Y , X , W 

380 

OPEN #1: "CSl" , INTERNAL,S 

800 

CALL 

HCHAR(Y,X,144,W) 

EQUENTIAL„INPUT ,FIXED 192 

810 

NEXT 

J 

390 

FOR 1=1 TO 5 

820 

READ 

I 

400 

INPUT #1:LIST«(I),PUNKTE 

830 

FOR 

J = 1 TO I 

• I > , 

LIST«(1+1),PUNKTE(I+1),L 

840 

READ 

Y , X , W 

IST« (1 + 2; ,PUNKTE(1+2) ,LIST«( 

850 

CALL 

VCHAR(Y,X,153,W) 

1+3) 

, PUNKTE(1+3) 

860 

NEXT 

J 
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870 READ I 

880 FOR J=1 TO I 

890 READ Y, X 

900 CALL HCHAR(Y,X,136) 

910 NEXT J 

920 REN VARIABELN FESTLEGEN 

930 AY=10 

940 C0NTR1=2 

950 C0NTR2=1 

960 NX=7 

970 MY=2 

980 R1 = 1 

990 REM HAUPTPROGRAMM 
lOOO CALL KEY( 1 , A1 , B1 ) 

1010 CALL KEY(2,A2,B2) 

1020 CALL HCHAR(MY,MX,128) 

1030 IF B2< >0 THEN 1360 

1040 IF B1=0 THEN 2740 

1050 REM GEHEN 

1060 CALL SOUND(-20,-3,3) 

1070 IF A1< >2 THEN 1140 

1080 CALL HCHAR(MY,MX,2E) 

1090 MX—MX-1 

llOO IF MX > =1 THEN 1120 

lllO MX=32 

1120 CALL GCHAR(MY,MX, 2E) 
1130 CALL HCHAR(MY,MX,128) 
1140 IF A1< >3 THEN 1210 
1150 CALL HCHAR(MY,MX,ZE) 
1160 MX=MX+1 
1170 IF MX< =32 THEN 1190 
1180 MX=1 

1190 CALL GCHAR(MY,MX,ZE) 
1200 CALL HCHAR(MY,MX,128) 
1210 IF A1< >12 THEN 1270 
1220 IF ZE=32 THEN 1270 
1230 CALL HCHAR(MY,MX,ZE) 

124 0 M Y = M Y - 1 

1250 CALL GCHAR(MY,MX,ZE) 
1260 CALL HCHAR(MY,MX,128) 
1270 IF A1< >14 THEN 1340 
1280 CALL GCHAR(MY+2,MX,CO) 
1290 IF C0=32 THEN 1340 
1300 CALL HCHAR(MY,MX,ZE) 
1310 MY = MY +1 

1320 CALL GCHAR(MY,MX,ZE) 

1330 CALL HCHAR(MV,MX,123) 

1340 GOTO 2740 

1350 REM -*** SPRINGEN *** 

1360 CALL SOUND(-40,330,3) 

1370 IF A2=2 THEN 1410 

1380 IF A2=3 THEN 1780 

1390 IF (A2=12) + (CONTR100) = 

-2 THEN 2200 

1400 GOTO 2740 


1410 
1420 
1430 
1440 
1450 
1 460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1 580 
1590 
1 600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1 750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
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IF A1< >2 THEN 1440 
R= - 1 

GOTO 1480 

IF Al 03 THEN 1470 

R= 1 

GOTO 1430 
R = 0 

CALL HCHAR(MY,MX,ZE) 

MY=MY-1 

MX=MX+R 

IF MX > = 1 THEN 1530 
MX=32 

IF MX<=32 THEN 1550 
MX— 1 

CALL GCHAR(MY,MX,ZE) 
CALL HCHAR(MY,MX,128) 
CALL GCHAR(MY+1,MX,CO) 
IF C0032 THEN 2740 
CALL HCHAR(MY,MX,ZE) 

MY = MY +1 
MX=MX+R 

IF MX > = 1 THEN 1640 
MX=32 

IF MX < =32 THEN 1660 
MX=i 

CALL GCHAR(MY,MX,ZE) 
CALL HCHAR(MY,MX,128) 
CALL GCHAR(MY+1,MX,CO) 
IF C0O32 THEN 2740 
CALL HCHAR(MY,MX,ZE) 
MY=MY+1 

IF M Y = 2 3 THEN 3640 
CALL GCHAR(MY,MX,ZE) 
CALL HCHAR(MY,MX,128) 
CALL GCHAR(MY+1,MX,CO) 
IF C0O32 THEN 2740 
GOTO 3400 

IF A1< >2 THEN 1310 
R = - 1 

GOTO 1850 

IF Al< >3 THEN 1840 

R= 1 

GOTO 1850 
R=0 

CALL HCHAR(MY,MX,ZE) 

MY=MY-1 

MX=MX+R 

IF MX >=1 THEN 1900 
MX=32 

IF MX< =32 THEN 1920 
MX= 1 

CALL GCHAR(MY,MX,ZE) 
CALL HCHAR(MY,MX,128) 
CALL GCHAR(MY+1,MX,CO) 
IF C0032 THEN 2740 



1960 CALL HCHAR(MY,MX,ZE) 

1970 MY=MY+1 

1980 MX=MX+R 

1990 IF MX > = 1 THEN 2010 

2000 M X = 3 2 

2010 IF MX< =32 THEN 2030 
2020 MX=1 

2030 CALL GCHAR(MY,MX,ZE) 

2040 CALL HCHAR(MY,MX,128) 

2050 CALL GCHAR(MY+1,MX,CO) 

2060 IF C0<>32 THEN 2740 

2070 CALL HCHAR(MY,MX,ZE) 

2080 MY = MY +1 

2090 IF MY=23 THEN 3640 

2100 M X = M X + R 

2110 IF MX< =32 THEN 2130 

2120 MX=1 

2130 IF MX >=1 THEN 2150 
2140 MX=32 

2150 CALL GCHAR(MY,MX,ZE) 

2160 CALL HCHAR(MY,MX,128) 

2170 CALL GCHAR(MY+1,MX,CO) 

2180 IF C0<>32 THEN 2740 

2190 GOTO 3400 

2200 IF A1< >2 THEN 2230 

2210 R=-1 

2220 GOTO 2270 

2230 IF A1 < >3 THEN 2260 

2240 R= 1 

2250 GOTO 2270 

2260 R=0 

2270 CALL HCHAR(MY,MX,ZE) 

2280 C0NTR1=C0NTR1-1 

2290 MY=MY-1 

2300 MX=MX+R 

2310 IF MX > =1 THEN 2330 

2320 MX=32 

2330 IF MX < =32 THEN 2350 
2340 MX=1 

2350 CALL GCHAR(MY,MX,ZE) 
2360 CALL HCHAR(MY,MX,128) 
2370 CALL GCHAR(MY+1,MX,CO) 
2380 IF C0<>32 THEN 2740 
2390 CALL HCHAR(MY,MX,ZE) 
2400 MX=MX+R 
2410 IF MX< =32 THEN 2430 
2420 MX=1 

2430 IF MX>=1 THEN 2450 
2440 M X = 3 2 

2450 CALL GCHAR(MY,MX,ZE) 
2460 CALL HCHAR(MY,MX,128) 
2470 CALL GCHAR(MY+1,MX,CO> 
2480 IF CO<>32 THEN 2740 
2490 CALL HCHAR(MY,MX,ZE) 
2500 MY = MY +1 


2510 MX=MX+R 

2520 IF MX< =32 THEN 2540 

2530 MX=1 

2540 IF MX >=1 THEN 2560 
2550 MX=32 

2560 CALL GCHAR(MY,MX,ZE) 

2570 CALL HCHAR(MY,MX,128) 

2580 CALL GCHAR(MY+1,MX,CO) 

2590 IF C0O32 THEN 2740 

2600 CALL HCHAR(MY,MX,ZE) 

2610 MY=MY +1 

2620 IF MY=23 THEN 3640 

2630 MX=MX+R 

2640 IF MX< =32 THEN 2660 

2650 MX=1 

2660 IF MX > = 1 THEN 2680 
2670 MX=32 

2680 CALL GCHAR(MY,MX,ZE) 
2690 CALL HCHAR(MY,MX,128) 
2700 CALL GCHAR(MY+1,MX,CO) 
2710 IF C0O32 THEN 2740 
2720 GOTO 3400 
2730 REM ***BESTIMMUNG DES 
ZEICHENS UNTER DEM MEANNCHEN 
*** 

2740 CALL GCHAR(MY+1,MX,CO) 

2750 IF C0<>32 THEN 2770 

2760 GOTO 3400 

2770 IF C0=136 THEN 2800 

2780 IF C0=144 THEN 2910 

2790 GOTO 3000 

2800 CALL HCHAR(MY+1,MX,32) 

2810 CALL SOUND(-100,-3,O) 

2820 PZ=PZ+INT(RND*50)+100 

2330 IF (C0NT=0)+(PZ>5000)=- 

2 THEN 4010 

2840 IF PZ<PZC THEN 1000 

2850 PZC=PZC+1000+PZC1 

2860 PZC1=PZC1+100 

2870 IF PZC1< =500 THEN 2900 

2880 RA=RA+1 

2890 PZCi=0 

2900 ON C0NTR4 GOTO 4510,453 
O 

2910 CALL HCHAR(MY,MX,ZE) 
2920 MX=MX+Ri 
2930 IF MX >=1 THEN 2950 
2940 MX=32 

2950 IF MX< =32 THEN 2970 
2960 MX=1 

2970 CALL GCHAR(MY,MX,ZE) 
2980 CALL HCHAR(MY,MX,128) 
2990 GOTO 3000 

3000 CALL HCHAR(AY,APA,32,3) 
3010 IF C0< >152 THEN 3100 
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3020 CALL HCHAR(MY,MX,ZE) 

3030 0N (RI/2+1.5)GOTO 3040, 
3070 

3040 MY=MY +1 

3050 CALL HCHAR(MY,MX,128) 
3060 GOTO 3100 
3070 MY=MY—1 

3080 CALL HCHAR(MY,MX,128) 
3090 REM***AUFZUG*** 

3100 AY=AY-R1 

3110 CALL HCHAR(AY,APA,152,3 
) 

3120 IF (AY<5)+(AY>22)=0 THE 

N 3140 

3130 R1 = -R1 

3140 FOR 1 = 1 TO RA 

3150 CALL HCHAR(INT<RND*24+1 

),INT<RND*32+1),32) 

3160 NEXT r 

3170 REM *** BOMBE *** 

3180 ON C0NTR5+1 GOTO 3190,3 
260,3310 

3190 IF RND >0.02 THEN 1000 
3200 C0NTR5=1 

3210 CALL SOUND(-100,440,O) 
3220 BX=INT<RND*30+2) 

3230 BY=INT(RND*22+2) 

3240 CALL HCHAR(BY,BX,43) 
3250 GOTO 1000 
3260 IF RND>0.05 THEN 1000 
3270 CONTR5=2 

3280 CALL SOUND(-1OO,220,O) 
3290 CALL COLOR(2,11,2) 

3300 GOTO 1000 

3310 CALL KEY(1,A1,B1) 

3320 IF (A1=7) + ( < ABS(MY-BY)< 

2) + ( ABS (MX-BX) <2) =-2) 0-2 TH 

EN 3370 

3330 C0NTR5=0 

3340 CALL COLOR(2,1O,2) 

3350 CALL HCHAR(BY,BX,137) 
3360 GOTO 4320 
3370 IF RND >0.05 THEN 1000 
3380 CALL COLOR(2,1O,2) 

3390 GOTO 4230 

3400 REM *** FALLEN *** 

3410 CALL HCHAR(MY,MX,ZE) 
3420 CALL KEY(1,A1,B1) 

3430 IF (A1=19)+(T=0)+(CONTR 

200) =-3 THEN 3610 

3440 IF T=0 THEN 3550 

3450 MY=MY+1 

3460 IF MY=23 THEN 3640 

3470 CALL GCHAR(MY,MX,ZE) 

3480 CALL SOUND(-1OOO,340-MY 

*3,5) 


3490 CALL HCHAR(MY,MX,129) 
3500 CALL GCHAR(MY+1,MX,CO) 
3510 IF C0=32 THEN 3410 
3520 CALL SOUND(-500,-4,O) 
3530 T=0 
3540 GOTO 1000 
3 55 0 MY=MY +1 

3560 CALL SOUND(-1000,700-MY 
*5,5) 

3570 IF MY=23 THEN 3640 
3580 CALL GCHAR(MY,MX,ZE) 
3590 CALL HCHAR(MY,MX,128) 
3600 GOTO 3410 
3610 T= 1 

3620 C0NTR2=C0NTR2-1 
3630 GOTO 3410 
3640 AZ=AZ-1 
3650 IF AZ=0 THEN 3740 
3660 CALL CLEAR 
3670 CALL SCREEN(5) 

3680 PRINT " SIE 

CH" 5 INT (AZ) *. " 

CHEAN' !":" 

" •, PZ; "PUNKTE" 

3690 FOR 1 = 1 TO 300 
3700 NEXT I 
3710 CALL CLEAR 
3720 CALL SCREEN<2) 

3730 ON C0NTR4 GOTO 
O 

3740 CALL CLEAR 
3750 CALL SCREEN(5) 

3760 PRINT "SIE HABENINT(P 
2);"PUNKTE" 

3770 INPUT "NAME ?":NAME« 

3780 FOR 1=1 TO 20 

3790 IF PZ<PUNKTE(I)THEN 380 

O ELSE 3810 

3800 NEXT I 

3810 FOR J= 19 TO I STEP -1 
3820 LIST«(J+l)=LIST«(J) 

3830 PUNKTE(J+l)=PUNKTE(J) 

3840 NEXT J 

3850 LIST«(I)=NAME« 

3860 PUNKTE(I)=PZ 
3870 FOR 1=1 TO 20 
3880 PRINT LIST«(I),PUNKTE(I 
) 

3890 NEXT I 
3900 RESTORE 

3910 PRINT "WENN SIE DIE TAB 
ELLE ":"SPEICHERN WOLLEN DAN 
N":"DRUACKEN SIE DIE LEERTAS 
TE ! " 

3920 CALL KEY(0,A1,B1) 

3930 IF B1=0 THEN 3920 


HABEN NO 
MEANN 
UND":" 


4510,453 
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3940 IF A1< >32 THEN 4000 
3950 OPEN #1:"CS1-,SEQUENTIA 
L,INTERNAL,OUTPUT,FIXED 192 ; 

3960 FOR 1=1 TO 5 
3970 PRINT #i:LIST*(I)»PUNKT 
E ( I ) ,LIST*(1 + 1) ,PUNKTE(1 + 1) , 
LIST* ( I +2) , PUNKTE ( 1+2)*, LIST* 
(1+3),PUNKTE(1+3) 

3980 NEXT I 
3990 CLOSE #1 
4000 GOTO 530 
4010 CONT = 1 *. 

4020 AZ=AZ+1 
4030 CALL SCREEN(5) 

4040 CALL CLEAR 

4050 PRINT " SIE HABEN EIN F 

REIMEANNCHEN" 

4060 PRINT "SIE HABEN NUN";A 
Z;"MEANNCHEN" 

4070 FOR 1=1 TO 300 
4080 NEXT I 
4090 C0NTR4=2 
4100 CALL CLEAR 
4110 CALL SCREEN(2) 

4120 ON C0NTR4 GOTO 4510,453 
O 

4130 DATA 34,13,3,5,6,4,18,2 
,5,3,4,5,16,1,5,27,5,6,20,5, 
7,10,3,8,4,4,8,16,2,9,3,1,9, 
19,3,9,24 

4140 DATA 9,10,2,1,11,3,1,11 
,11,2,11,16,3,12,2,1,12,22,6 
,13,1,7,13,10,3,13,30,3,14,1 
6,4 

4150 DATA 15,26,4,16,4,6,16, 
17,5,18,1,1,19,2,5,20,16,3,2 
1,1,2,21,7,3,21,25,6 
4160 DATA 23,1,7,23,11,2,23, 
18, 15 

4170 DATA 2,3,22,7,18,20,13 

4180 DATA 22,14,1,4,6,4,2,17 

,5,2,20,6,3,4,7,4,14,7,2,4,1 

0,3,17,9,4,6,16,2,10,19,4 

4190 DATA 17,19,6,7,21,2,4,2 

4,2,13,23,5,19,22,4,22,25,1, 

4,27,1,6,29,3,13,26,2,16,23, 

2 

4200 DATA 19,28,2,10,31,3 
4210 DATA 23,8,3,8,3,23,2,19 
,3,3,5,13,5,3,6,10,9,23,10,9 
,11,5,17,14,17,16,17,6,22,3, 
23 

4220 DATA 12,24,7,25,18,25,7 
,27,9,27,23,28,5,31,18,32 
4230 CALL HCHAR(BY,BX,42) 
4240 CALL SOUND(-1OO,-5,O) 


4250 CALL HCHAR(BY-1,BX-1,32 
,3) 

4260 CALL HCHAR(BY,BX-1,32) 
4270 CALL HCHAR(BY,BX+1,32) 
4280 CALL HCHAR(BY+1,BX-1,32 
,3) 

4290 CALL HCHAR(BYjBX,32) 
4300 C0NTR5=0 

4310 IF ( (ABS(BY-MY)< 7) + (ABS 
(BX-MX)<10))<>-2 THEN 1000 E 
LSE 3640 

4320 PZ=PZ+INT (RND-X-100) +200 
4330 IF (CONT=0)+(PZ>5000)=— 
2 THEN 4010 

4340 IF PZ<PZC THEN 1000 
4350 PZC=PZC+1000+PZC1 
4360 PZC1=PZC1+100 
4370 IF PZC1< =500 THEN 
4400 

4380 RA=RA+1 
4390 PZC1=0 
4400 RESTORE 
4410 GOTO 680 

4420 DATA 28,1,3,4,5,4,12,5, 
4,21,11,5,9, o>, 6, 6,2,6, 13,0,3 
,3,7, ll,4,o, 11, 14,o, 10, 19,4, 
12 , 22,11 

4430 DATA 9,24,4,10,29,2,16, 
29,2,21,27,4 

4440 DATA 13,13,2,14,4,3,14, 
10,4,13,14,1,14,15,1,15,16,1 
,16,17,12,18,14,4,19,27,4,20 
,5,2 

4450 DATA 20,21,5,21,10,9,23 
,4,29,2,7,17,13,17,4,7,21,21 
,6,2,12,6,2,9,7,2,4,8,4,18,9 
,5,9,10,3 

4460 DATA 5,12,3,15,13,6,5,1 
6,6,8,18,5,17,18,4,5,19,2,14 
,19,2,21,21,2,17,22,3,8,23,4 
,13,23,3 

4470 DATA 17,26,6,8,28,4,13, 
28,3,5,31,13 

4480 DATA 33,3,5,3,6,4,14,4, 

19.4.20.4.28.5.10.6.4.6.5.6, 
14,7,25,8,10,10,20,11,7,11,8 
,12,13 

4490 DATA 12,25,12,31,13,17, 

14.7.16.20.16.26.16.32.17.6, 
19,32,20,4,20,22,21,15,23,12 
,23,13,23,24 

4500 DATA 19,29,9,26 
4510 RESTORE 
4520 GOTO 680 
4530 RESTORE 4420 
4540 GOTO 630 


25 










100 

*■) 

110 

*; 

120 

* 

130 

* 

140 

* 

150 

* 

160 

* 

170 

* 

180 

! * 

190 

* * 

200 

! * 

210 

! * 

220 

! * 

230 

i * 


********************** 

* LOHN- * 

* ABRECHNUNG * 

* COPYRIGHT 1984 BY * 

* GUENTER STAHL * 

* BEARBEITET VOM * 

* TEAM DES * 

* AKTUELL VERLAGES * 

* MUENCHEN * 


SCHNITTSTELLE & 

240 ! * /DRUCKER * 

250 ! * BENOETIGTER * 

260 ! * SPEICHERPLATZ * 

270 ! * 6246 BYTES * 

280 ! ********************** 
290 CALL VCHAR(1,1,32,768):: 

PRINT TAB(7)5"LOHNABRECHNUN 
G" :: PRINT 

300 PRINT "..EINGABE DER PER 
S. DATEN" - 
310 PRINT 

320 LINPUT "MONAT (text) . . : " 
: M* 

330 INPUT "JAHR.: " : 

JS 

340 LINPUT "DATUM.S " 

*. DT* 

350 LINPUT "NAME,VORNAME." 
: A* 

360 LINPUT "STRASSE. 

: Al* 

370 LINPUT "PLZ ORT. 

: A2* 

380 LINPUT "BANK.: " 

: C* 

390 LINPUT " KONTONR.: " 


STRASSE 


PLZ ORT 


BANK 


390 LINPUT "KONTONR.5" 

: CI* 

400 LINPUT "BANKL.ZAHL. . . . : " 
: C2* 

410 CALL VCHAR(1,1,32,768) 


420 PRINT ".EINGABE DAT 

EN" 

430 PRINT 

440 INPUT " PERSONALNR.I " 

rPNl 

450 INPUT "ABTEILUNGSNR. . . : " 


460 INPUT "STEUERKLASSE. 
: N2 

470 INPUT "KINDERZAHL. . . 



480 PRINT "0=KEINE 1= EV 2=R 
K" 

490 INPUT "KONFESSION.I" 

: N4 

500 PRINT "10=A0K 20=IKK 30= 


510 

INPUT 

"KRANKENVERS.... 

• II 

m 

: N5 

520 

CALL VCHAR(1,1,32,768) 


530 

PRINT 

"_EINGABE DER 

B 

EZUEGE" 

540 PRINT 

550 INPUT 

"STUNDENLOHN.... 

m II 

■ 

: STL 

560 

INPUT 

"ARBEITSSTUNDEN 

m >1 

■ 

: asi 

570 

INPUT 

"UEBERSTUNDEN... 

• II 

: UE 

580 

INPUT 

"SONN+FEIERTAGE 

■ II 

: SF 

590 

INPUT 

"URLAUBSLOHN.... 

■ II 

: ul 

600 

INPUT 

"URLAUBSGELD.... 

• II 
m 

: ug 

610 

INPUT 

"SONSTIGE BEZ... 

M II 

: s 

620 

CALL VCHAR<1,1,32,768) 


630 

PRINT 

"... EINGABE DER 

AB 

ZUEGE" 

640 PRINT 

650 INPUT 

"LOHNSTEUER. 

m i 1 

: LS 

660 

INPUT 

"KIRCHENSTEUER.. 

■ II 

: ks 

670 

INPUT 

"KRANKENVERS. . . . 

• »I 

: kv 

680 

INPUT 

"RENTENVERS. 

• II 

: rv 

690 

INPUT 

" ARBEITSL.VERS. 

* II 

• 

: av 

700 

INPUT 

"PERS.ABZUEGE.. 

• M 

■ 

: PA 

710 

! BERECHNUNG DER BETRAEG 

E 

720 

V = 52 

! VERM.W.ANL. 


730 

LOHN= 

STL*AS1 ! GRUNDLOHN 

740 

USTD= 

STL*UE ! UEBERSTUND 


EN 

750 BR= (LOHN+USTD+SF+UL+UG+S 
+V)! BRUTTOLOHN 

760 A= <LS+KS+KV+RV+AV)!ABZUE 
GE 

770 A1=(A+PA)! GESAMT ABZUEG 
E 

780 NV=(BR-Ai! NETTO VERDIEN 
ST 
























• »• 






790 AZ=(NV-PA)! AUSZAHLUNGSB 
ETRAG 

800 CALL VCHAR(1,1,32,768) 
810 !ERSTELLEN DER ABRECHNUN 

G 

820 DISPLAY AT(1,1)I"LOHN-UN 
D GEHALTSABRECHNUNG" 

830 DISPLAY AT(2,1):”NAME/ST 
.KL./REL/VERS/MON/J" 

840 DISPLAY AT(3,1):JAS;N21N 
4;N5*,DTS 

850 DISPLAY AT( 4, 16) : "DM”» TA 
B(25)5"DM" 

860 DISPLAY AT(5,1): M GRUNDGE 
HALT" DISPLAY AT(5,14):US 

ING "####.##":LOHN 

870 DISPLAY AT(6, 1) : "UEBERST 
UNDEN" :: DISPLAY AT(6,14)*.U 
SING "####.##":USTD 
880 DISPLAY AT(7,1):"VERM.W. 
ANL" :: DISPLAY AT(7,14):USI 
NG "####.##":V 

890 DISPLAY AT(8,1)I"STEUERP 
FL." :: DISPLAY AT(8,22):USI 
NG "####. ## " : BR 

900 DISPLAY AT(9,1):"SONN/FE 
IERT." :: DISPLAY AT(9,14):U 
SING "####.##":SF 
910 DISPLAY AT(10,1):"BRUTTO 
•’ :: DISPLAY AT ( 10,22) *. US ING 

"####. 44# " : BR 

920 DISPLAY AT(11, 1) : "- 


930 DISPLAY AT(12,1):"ABZUEG 
E" 

940 DISPLAY AT(13,1):"LOHNST 

EUER" :: DISPLAY AT(13,14):U 

SING "4444##. ## " : LS 

950 DISPLAY AT(14,1):"KIRCHE 

NST." :: DISPLAY AT(14,14):U 

SING " 44 44 44#. 4444 " : KS 

960 DISPLAY AT(15,1):”KRANKE 

NVERS.";:: DISPLAY AT(15,14) 

:USING "####.##":KV 

970 DISPLAY AT(16,1):"RENTEN 

OERS." :: DISPLAY AT <16,14)1 

USING ”####.##":RV 

980 DISPLAY AT(17,1):"ARB.L. 

VERS." :: DISPLAY AT<17,14>: 

USING "####.##":AV 

990 DISPLAY AT(18,1):"SONST. 

ABZ." :: DISPLAY AT(18,14):U 

sing "####.##":pa :: Display 

AT(18,22):USING "####.##":A 


lOOO DISPLAY AT (19,21 ) 

tf 

1010 DISPLAY AT(21,1):"AUSZA 
HLUNG”JTAB(18)5"DM" :: DISPL 
AY AT(21,22):USING "####.##" 

: AZ 

1020 DISPLAY AT(22,21):”==== 

1030 DISPLAY AT(24,1):"1=DRU 
CK/2=NEU/3=BILD/4=END" 

1040 CALL KEY(O,KEY,STATUS): 

I IF ST ATUS=0 THEN 1040 
1050 IF KEY <49 OR KEY>52 THE 
N 1040 

1060 ON KEY-48 GOTO 1080,280 
,870,1070 
1070 END 

1080 DISPLAY AT(24,1)BEEP:"D 
RÜCKER ANGESCHLOSSEN (J/N)?" 
1090 CALL KEY(O,KE,ST) : : IF 
ST = 0 THEN 1090 :*. IF KE<74 O 
R KE >78 THEN 1090 :: IF KE=7 
4 THEN 1100 ELSE 800 
lioo open #l:"RS232” :: DISP 

LAY AT(24,1DATEN WERDEN 
AUSGEDRUCKT. . " 
lllO PRINT #1:CHRS(14) 

1120 PRINT #1:TAB(4);"Lohnab 
rechnung" \ CHRS(15);T AB(40)j 
Monat ";TAB(50)\"Jahr " 

1130 PRINT #1 :: PRINT #i:TA 

B <14)5 ASJ TAB (54) j MS; TAB (66) ; 
-IS 

1140 PRINT #1 :: GOSUB 1590 

1150 PRINT #1:TAB(4);"Person 
al " jTAB(14) ; "Datum";TAB(32) i 
" Abtnr . " 5 TAB (42) ; "St. " *, TAB (5 
O);"Kinder"?TAB(60);"Rel."|T 
AB(70)j"Vers.";TAB(6);"Nr"jT 
AB(42) ; "Ul ";TAB(51) J "zahl" 
1160 GOSUB 1590 

1170 PRINT #1:TAB(4) jPNI; TAB 
(14) 5 DTS;TAB(32) j NI;TAB(42) ; 
N2J TAB(50) ;N3;TAB(60) ;N4J TAB 
(70);N5 

1180 GOSUB 1590 :: PRINT #1 
1190 PRINT #i:TAB(36)5"Stund 
en"jTAB(48) j "Stunden 1ohn"»TA 
B ( 63) *, "Brutto-Betrag" 

1200 PRINT #1 

1210 PRINT #1,USING 1600:AS1 
,STL,LOHN 

1220 PRINT #1,USING 1610!UE, 
STL,USTD 

1230 PRINT #1,USING 1710:V : 

: PRINT #1,USING 1620ISF 


1 




1240 PRINT 41,USING 1630:UL 
1250 PRINT 41,USING 1640-.UG 
:: PRINT 41,USING 1700:s 
1260 FOR 1=1 TO 4 :: PRINT 4 
l :: NEXT I 
1270 GOSUB 1590 
1280 PRINT #1:TAB(62)j"Gesam 
t-Brutto " :: PRINT #1 
1290 PRINT 41,USING 1650*.BR 
1300 PRINT #1 :: GOSUB 1590 

1310 PRINT #1:TAB(4)J"Steuer 
•;TAB(14); "Lohn"5 TAB(24) ; "Ki 
rchen" ,*TAB(32) ; "Kranken" ; TAB 
(40)J"Renten”;TAB(48);"Anbei 

tsl M TAB (62) ; "Gesetz 1 . Abzüge 
»» 

1320 PRINT 41:TAB(4);"Brutto 
";TAB(13) ; "Steuer";TAB(24) ; " 
Steuer";TAB(32);"vers.";TAB( 


40) ; " 

vers . " 

; TAB(50) ; "vers. " 

1330 

PRINT 

41 :: PRINT 

41 , US 

ING 1660:BR 

, LS,KS,KV,RV,AV,A 

1340 

PRINT 

41 :: GOSUB 

1590 

1350 

PRINT 

41:TAB(62); 

"Netto 

-Verdienst" 



1360 

PRINT 

41 :: PRINT 

41 , US 

ING 1670:NV 



1370 

PRINT 

41 


1380 

PRINT 

41:TAB(40); 

w 

1390 

_I» 

PRINT 

41:TAB(10); 

AS;TAB 

(44) ; 

"Netto 

- Abzüge" 


1400 

PRINT 

41 :: PRINT 

41 , US 

ING 1630:PA 



1410 

PRINT 

41:TAB(10); 

AIS 

1420 

PRINT 

41 


1430 

PRINT 

41 :: PRINT 

41 : TA 

B ( 10) 

5 A2S 



1440 

PRINT 

41 


1450 

FOR 1 = 

=1 TO 4 :: PRINT 4 

l : : 

NEXT I 

:: GOSUB 1590 

1460 

PRINT 

41:TAB(60); 

" Aus za 

hlungsbetrag" 


1 470 

PRINT 

41 :: print 

41 , US 

ING 1690:AZ 



1480 

PRINT 

41:TAB(60); 

n- 

1490 

PRINT 

41 


1500 

GOSUB 

1590 


1510 

PRINT 

41:TAB(4);" 

Kon ton 

r.";TAB(30) 

5"Bank";TAB(50);" 

Bl z " 




1520 

PRINT 

41 :: PRINT 

41 : TA 


B (4) ; C'l$; TAB (30) ; CS; TAB (50) ; 
C2S 


1530 PRINT 41 

1540 GOSUB 1590 

1550 FOR 1 = 1 TO 9 : : PRINT 4 

l :: NEXT I 

1560 CLOSE 41 

1570 CALL VCHAR(1,1,32,63) 

1580 GOTO 300 

1590 FOR 1=1 TO 30 :: PRINT 
41:"-";:: NEXT I :: RETURN 
1600 IMAGE "...Arbeitslohn.. 

.. 444.44. . . 

. . . 4444.44.4444.44" 

1610 IMAGE "...Überstunden.. 

.444.44. . . 

. . . 4444.44.####.##>• 

1620 IMAGE "...Sonn-Feiertag 

e..... 

.4444.44" 

1630 IMAGE "...Urlaubslohn.. 


.4444.44"' 

1640 IMAGE "...Urlaubsgeld.. 


.4444.44" 

1650 IMAGE ". 


.BM. .4444.44" 

1660 IMAGE "...4444.44...444 
.44....444.44...444.44..444. 

44 . . 444.44. DM. . 4444.44" 

1670 IMAGE ". 


.DM. .4444.44" 

1680 IMAGE ". 

.Pers 

önliche Abzüge..DM..4444.44" 
169 0 IMAGE ". 


.DM. .4444.44" 

1700 IMAGE "...Sonstiges.... 


.4444.44" 

1710 IMAGE "...Verm.W.Anlage 


4444.44 


LOHNABRECHNUNG 

Ein Programm, das beim Tester schon den Eindruck 
eines professionellen Anwenderprogrammes erweckt. 
Schön ist auch, daß, um es auf einer Parallel-Schnitt- 
stelle laufen zu lassen, nur die Zeile 1100 geändert 
werden muß! Interessant wäre noch das Programm 
selbst so zu erweitern, daß man Daten auf Diskette 
speichern kann! Dies jedoch nur als Anregung für 
unsere Leser. 
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DAS SUPER SERVICE PAKET! 
ABO- UND KASSETTENVERSAND 


3 

COUPON 

Hiermit bestelle ich alle angebotenen Listings: 
zum Super-Sonderpreis von DM 10,— 

Den Betrag von DM 10,— habe ich ( ) in bar, ( ) als Scheck 
beigelegt 

Meine Anschrift: 

Name_ 

Vorname_ 

Straße____ Nr._ 

PLZ/Ort_ 

Unterschrift_ 

Ausschneiden und im Briefsenden an: 

AKTUELL Tl- 
KASSETTENSERVICE 
POSTFACH 1107 
8044 LOHHOF 




Finden Sie Ihre TI REVUE nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder „Euer" 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 25 DM liefern wir Euch per Post sechs 
Hefte ins Haus (Ausland 30 DM). Einfach den 
Bestellschein unten ausschneiden-fotokopieren 
oder abschreiben, in einen Briefumschlag und ab 
per Post. TI REVUE kommt dann pünktlich ins 
Haus. 

Wollt Ihr nicht mehr seitenlange Listings ein¬ 
tippen? Dann benutzt unseren Kassetten-Service: 
Für ganze zehn DM - nur Vorkasse, keine Rech¬ 
nung - keine Nachnahme - erhalten Sie alle 
angebotenen Listings des jeweiligen Heftes auf 
Kassette per Post ins Haus. Achtung: Bestellun¬ 
gen ohne Geld werden nicht bearbeitet! Liefer¬ 
zeit: In der Regel zwei bis drei Wochen! Wichtig: 
Unsere Kassetten werden digital in einem Profi¬ 
studio von einem Masterband gezogen, nicht 
irgendwie per Recorder runtergenudelt. Selbst¬ 
verständlich volles Umtauschrecht bei Nicht- 
funktionieren. 



>c 


Coupon 

Ja, ich möchte von Ihrem Angebot 
Gebrauch machen. 


Bitte senden Sie mir bis auf Wider¬ 
ruf ab sofort jeweils die nächsten 
sechs Ausgaben an untenstehende 
Anschrift. 


Ich nehme zur Kenntnis, 
daß die Belieferung 
erst beginnt, wenn die Abo- 
Gebühr dem Verlag 
zugegangen ist. 


TI AKTUELL 

Abo-Service 
Schellingstraße 33 
8000 MÜNCHEN 40 


Name ___ 

Vorname_ 

Straße/Hausnr._ 

Piz/Ort_ 

Ich bezahle: 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung 

□ bargeldlos per Bankeinzug von meinem Konto 

bei (Bank) und Ort_ 

Kontonummer_ 

Bankleitzahl - _ 

(steht auf jedem Kontoauszug) 

Unterschrift __ 

Von meinem Widerspruchsrecht habe ich Kenntnis genommen 

Unterschrift_ 





lOO 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 


********************* 


* TI SENSO _* 

* - Copyright by * 

* Hans-J. Adler * 

* Eagle-Computing * 

* * 

* Bearbeitet vom * 

* Team des * 

* Aktuell Verlages * 

* Muencl^en * 

* \ * 

A. 

^Benoetigte Geraete:* 

* TI99/4A Konsole * 

* Ext. Basic * 

* * 

* Speicherbelegung * 

* 6803 Bytes * 

* * 


********************* 


300 ! 

310 DATA 21,109,7,77,29,5,77 

,197,11,133,109,4 

320 DATA 2,139,4,175,1.5,175 

,1.5,175,1.5,156,1.5,175,4,1 

85,4,175 

330 DATA 2,175,4,156,1.5,156 
, 1.5, 156, 1.5, 139, 1.5, 156,4, 1 

75.4.139 

340 DATA 2,139,4,175,1.5,175 
,1.5,175,1.5,156,1.5,175,4,1 
35,5,233 

350 DATA 1.5,233,1.5,208,-2, 
30000,1.5,208,1.5,135,1.5,17 

5.1.5.156.1.5.139 

360 DIN A (150) ,Z i 4) ,S(4) ,F(4 
) ,RN <6) ,R(6 > ,L(32) ,K < 32) 

370 RANDOMIZE :: ON BREAK NE 
XT 

380 GOTO 420 :: CALL CLEAR : 

'. CALL MAGNIFY : : CALL SOUND 
:: CALL SPRITE 

390 CALL KEY .' : CALL -JGYST : 

: call char :: call hchar :: 
CALL COLOR 

400 CALL SCREEN I: CALL LOCA 
TE : : CALL PATTERN *. : CALL D 
ELSPRITE 

410 AS,I,KE,ST,SP,J,T,X,Y,SF 

,N,HI,w :: !§p- 

420 CALL CLEAR :: CALL MAGNI 
FY < 4 ) 

430 CALL CHAR(59, "0003081", 6 
O,"3C4299A1A199423C“,64,"") 


440 CALL CHAR < 91,"0044003844 
447C44",92,"0044007C4444447C 
", 93, "0044004444444438") 

450 AS="FFFF" 

460 CALL CHAR < 124 , ASkRPTS < ”C 
O ” , 8 ) &AS&RPTS ( ** O " , 3 ) kASkRPTS 
<”03",3)^A$feRPT$("0",8)) 

470 CALL CHAR(132,"F88080F08 
384FC03" 8<PPTS ( " 0 " , 48) ) 

480 CALL CHAR(140,RPTS("AA55 
* , 16) ) 

490 AS=RPTS("F" , 3)&RPTS <"FO" 

, 8 ) &RPTS ( " F " , 1 6 ) &RPTS ( " OF ” , 3 
)&RPTS(“F",3) 

500 CALL CHAR(136,AS,128,”00 
FFFF”,129,RPTS("F",16),130," 

",35,RPTS< "F" ,16)) 

510 ! Felderpositionen 

520 1 und Farben 

530 FOR 1=1 TO 4 :: READ Zd 

) ,S(I) ,F ( I):: NEXT I 

540 FOR 1=1 TO 32 :: READ L< 

I),k(I):: NEXT I 
550 ! 

560 ! Titelbild ++++++++ 

570 call col( i,i,d:: J =0 
580 FOR 1 = 1 TO 6 : : CALL HCH 
AR <1,1, 129,32) *. : NEXT I 
590 FOR 1 = 7 TO 12 :: CALL HC 
HAR(I,1,130,32):: NEXT I 
600 FOR 1=13 TO 18 :: CALL H 
CHAR(I,1,35,32):: NEXT I 
610 DISPLAY AT<3,3)SIZE(-12) 

:"sT.I.-SENSGS" 

620 DISPLAY AT <23, 1)SIZE(-23 
) : " 3 < sEAGLE-campu.t i ng§j 83s" 
630 CALL SCREEN<14):: CALL C 
OLOR(1,10,7,13,5,8) 

640 FOR 1=2 TO 11 :: CALL CO 

LOR(1,2,16):: NEXT I 
650 CALL KEY<0,KE,ST):: IF S 
T< =0 THEN J = J + 1 :: IF J<500 
THEN 650 
660 * 

670 ! Spielmenue +++++++ 

680 CALL COL(2,4,14):: J=0 

690 CALL P(3,5,"BITTE WÄHLEN 
SIE:")*.: call p (4, 1 , rpts <ch 

RS(128),23)) 

700 CALL P(12,5, " 1. .SPIELANL 
EITUNG” >:: CALL P ( 14 , 5 " 2 . . S 
PIELWAHL") 

710 CALL P(16,5,"3..ENDE") 
720 FOR 1=1 TO 32 :: CALL SO 
UND(L(I)*100,K(I),5,K(I)*2+( 
K(I)=3E4)*3E4,3) 
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730 CALL KEY<0,KE,ST);: IF K 
E >48 AND KE< 52 THEN 750 
740 NEXT I :: CALL SOUND(800 
,30000,30):: J=J+l :: IF J=3 
THEN 550 ELSE 720 
750 ON KE-48 GOTO 1340,760,1 
210 
760 ! 

770 ! Spielwahl ++++++++ 

780 CALL COL(16,5,8) 

790 FOR 1=1 TO 13 :: CALL CO 

LOR(1,16,5):: NEXT I 

800 CALL P(3,9," SP IELWAHL”): 

: CALL P(4, 1,RPT$(CHRS(128) , 
28) ) 

810 CALL P(8,7,”1..LIMIT:..6 
••) : : call P(10,7,"2..limit: 
12" ) 

820 CALL P(12,7,"3..LIMIT: 1 
3"):: CALL P(14,7,"4..LIMIT: 

24» ) 

830 CALL P(16,7,"5..LIMIT: 3 
O"):: CALL P(18,7,"6..REKORD 
VERSUCH") 

840 CALL KEY (O, KE, ST) : IF K 

E < 49 OR KE >54 THEN 840 
850 KE=-KE-43 :: IF KE = 6 THEN 
SP=15ö ELSE SP=KE*6 
860 ! 

870 ! Spiel+eld ++++++++ 

880 CALL CLEAR :: CALL SCREE 
N ( 13) 

890 FOR 1=5 TO 8 :: CALL COL 
OR(I,2,10):: NEXT I 
900 CALL CÜLOR(1,2, 16,2, 2, IO 
,3,2, 16,4,2, 16, 13, 14, 10) 

910 FOR 1 = 1 TO 4 CALL SPR 

ITE(#1,140,F(I),2(I),S(I)):: 
NEXT I 

920 CALL SPRITE(#5,132,5,9,1 
4,#6,124,5,9,221) 

930 A$=CHR$<129)&RPT$(CHR$(1 
30) , 12) (LCHR$( 129) 

940 CALL P(10,8,RPT*(CHRS(12 
9), 14)):: CALL P(11,8,A$) 

950 CALL P(12,3,CHR$(129)&CH 
R$( 130) k"T. I . -SENSO '' (LCHRS ( 1 3 

O)kCHR«(129;) 

960 CALL P(13,8,A*):: CALL P 
(14,3,RPT$(CHR$(129),14)):: 
CALL WAIT(200 J 
970 ! 

980 ! Spielbeginn ++++++ 

990 FOR 1=1 TO SP :: A(I)=IN 
T(RND*4)+l 


looo for J=i to I :: call li 

GHT(A(J)):: CALL WAIT(IOO):: 
NEXT J 

1010 CALL SOUND(150,-1,0) 
1020 FOR J=L TO I :: T=0 

1030 CALL JOYST(1,X,Y)!: T=T 
+ 1 :: IF T >50 THEN 1090 
1040 W=ABS(X)+AES(Y):: IF W= 
O OR W=8 THEN 1030 
1050 IF X<0 THEN SF=2 ELSE I 
F X>0 THEN SF=3 ELSE IF Y<0 
THEN SF=4 ELSE SF=! 

1060 CALL LIGHT(SF) 

1070 IF A(J)=SF THEN 1140 
1080 FÜR N= 1 TO 12 CALL P 

ATTERN(«A(J),136):: CALL SOU 
ND(50,220,O) 

1090 CALL PATTERN(#A(J),140) 
:: CALL SOUND(50,440,0):: NE 
XT N 

1100 IF SPO150 THEN 1130 

1110 IF I- 1 > = HI THEN CALL WA 

IT(100):: CALL MEL :: HI=I-1 

1120 GOTO 1200 

1130 RN (SP/6) =RN (SP/6) •‘■1 t*. 

GOTO 1200 

1140 NEXT J 

1150 DISPLAY AT(3,26)SIZE(4) 

:us ing "###":I :: call sound 

(100,-3,0) 

1160 IF 1=10 THEN CALL LOCAT 
E(#6,9,217) 

1170 IF 1=100 THEN CALL LOCA 
TE(#6,9,213) 

1180 CALL WAIT(250):: NEXT I 
: : CALL ROUND 
1190 R(SP/6)=R(SP/6)+1 
1200 CALL DELSPRITE(ALL) : : G 

OTO 1240 
1210 ! 

1220 ! Spielende ++++++++ 
1230 CALL CLEAR :: END 
1240 ! 

1250 ! Tabelle +++++++++ 

1260 CALL COL(2,10,7) 

1270 CALL P(3,11,"TABELLE"): 
: CALL P(4,1,RPT*(CHR*(128), 
28) ) 

1280 CALL P ( 7 , 15, “ja."ei 

n" ) 

12 90 FOR 1 = 1 TO 5 

1300 DISPLAY AT(7+2*1,3):USI 

NG "LIMIT ##:..###.###": 

1*6,R(I),RN(I):: NEXT I 
1310 CALL P(21,3,"(Spiel 6)" 
) 
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1320 DISPLAY AT(23,3):USING 
"HI-score:hi :: J=o 
1330 J=J+1+(J=1)*2 :: CALL K 
EY(J,KE,ST) : : IF ST< =0 THEN 
1330 ELSE 660 
1340 ! 

1350 ! Spielanleitung + + 

1360 CALL COL(2,12,7) 

1370 CALL P(2,7,"SPIELANLEIT 
UNG” ):*. CALL P (3, 1 , RPTS (CH^$ 

(128),28)) * 

1380 CALL P<5,1,"T.I.-SENSO 
IST DIE ""TI-EX-..TENDED BAS 
IC""-VERSION DES") 

1390 CALL P<7,1,"BELIEBTEN S 
PIELS ""SENSO"".") 

1400 CALL P ( 9 , 1 , " IHRE AUFGAB 
E BESTEHT DARIN, EINE VOM CO 
MPUTER VORGEGEBE-") 

1410 CALL P<11,1,"NE FARBFOL 
GE ZU WIEDERHOLEN.") 

1420 CALL P<13,1,"DAS SPIELF 
ELD ENTHÄLT VIER GROSSE FAR 
BFELDER, DIE BEI") 

1430 CALL P(15,1,"BEDARF ""A 
UFLEUCHTEN"" UND EINZUGEHöRI 
GES AKUSTISCHES") 

1440 CALL P(17,1,"SIGNAL ABG 
EBEN.") 

1450 CALL P(19,1,"DER COMPUT 
ER GIBT IHNEN EINE") 

14 60 CALL P(20, 1, "IMMER LANG 
ER WERDENDE FÄRB- FOLGE VOR, 
DIE SIE MIT HILFE") 

1470 CALL P(22, 1 , "DES JOYSTI 
CKS NR. 1 WIEDER- HOLEN MUSS 
EN . " ) 

1480 CALL P(24,27, ">>" ) 

1490 CALL KEY(O,KE,ST) : : IF 
ST = 0 THEN 1490 ELSE CALL CLE 
AR 

1500 CALL P(2,1,"UNTERLÄUFT 
IHNEN EIN FEHLER BEI DER WIE 
DERGABE ODER") 

1510 CALL P(4,1,"ZÖGERN SIE 
ZU LANGE, DANN...GILT DIE RU 
NDE ALS VERLOREN.") 

1520 CALL P(6,1,"EINE TABELL 
E GIBT AUSKUNFT.'. ÜBER DIE BI 
SHER ERZIELTEN") 

1530 CALL P(8,1,"RESULTATE." 
) 

1540 CALL P(1O,1,"SIE HABEN 
DIE WAHL ZWISCHEN 6 VERSCHIE 
DENEN SPIELSTUFEN:") 


1550 CALL P(13,l,"BEI DEN ST 
UFEN 1-5 WÄHLEN...SIE ALS ZI 
EL EINE BEGRENZTE") 

1560 CALL P(15,1,"ANZAHL VON 
WIEDERHOLUNGEN,..WÄHREND IH 
NEN STUFE 6 DIE") 

1570 CALL P(17,1,"MöGLICHKEI 
T EINES REKORDVER-SUCHES GIB 
T ! " ) 

1580 CALL P(20,1,"***...SCHA 
LTEN SIE DEN...******..""ALP 
HA-LOCK"" AUS !..***") 

1590 CALL P(23,6,"V.I.E.L... 
S.P.A.S.S") 

1600 CALL KEY(O,KE,ST):: IF 
ST < =0 THEN 1600 ELSE 660 
1610 !§P+ 

1620 ! 

1630 ! 

1640 ! ++++++++++++++++++++ 

+ + + + + UNTERPROGRAMME + + + + + 
++++++++++++++++++++++ 

1650 ! 

1660 ! Aufleuchten ***** 

1670 SUB LIGHT(X) 

1680 CALL PATTERN(«X, 136) : : 

CALL SOUND(200,110*X,2):: CA 
LL WAIT(iOO) 

1690 CALL PATTERN(MX, 140) : : 

SUBEND 

1700 ! 

1710 ! Zei tschlei-fe **** 

1720 SUB WAIT(I) 

1730 FOR X= 1 TO I :: NEXT X 
:: SUBEND 
1740 ! 

1750 ! Display at ****** 

1760 SUB P<X,Y,A$) 

1770 DISPLAY AT(X,Y):A$ :: S 

ÜBEND 

1780 ! 

1790 ! Hi-Score-MelDdie * 

1800 SUB MEL 

1810 FOR 1=1 TO 150 STEP 3 : 

: CALL SOUND(-lOO,110+1*5,2) 

:: NEXT I :: subend 
1820 ! 

1830 ! Runde beendet *** 

1840 SUB ROUND 

1850 FOR J=1 TO 3 :: FOR 1=2 
OO TO 400 STEP 50 :: CALL SO 
UND(70,I,I/lOO):: NEXT I 
1860 NEXT J :: FOR 1=400 TO 
200 STEP -40 :: CALL SOUND(7 

0 , 1 , 1 / 100 ):: next I 3t 
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1870 CALL WAIT(400):: SUBEND 
1880 ! 

1890 ! Farbde-f inition ** 

1900 SUB COL < X, Y, Z) 

1910 CALL CLEAR :: CALL SCRE 
EN (Z) 

1920 FOR 1=1 TO 13 :: CALL C 
OLOR(I,X,Y):: NEXT I :: SUBE 
ND 

T.I. SENSO 


Nachdem Sie eine der 6 Spielstufen gewählt haben, 
erscheinen auf dem Monitor 4 farbige Quadrate. 
Der Computer läßt nun eines dieser Quadrate auf- 
leuchten und gibt Ihnen ein akustisches Signal. 

Jetzt müssen Sie per Joystick (1) das gleiche Feld 
zum Aufleuchten bringen. Haben Sie das richtige 
Feld angesteuert, bekommen Sie einen Punkt und 
der Computer läßt nun ein Feld mehr aufleuchten. 
Machen Sie einen Fehler oder zögern Sie zu lange, 
gilt die Runde für Sie als verloren. Die Anzahl Ihrer 
gewonnenen und verlorenen Runden wird in eine 
Liste eingetragen. 

Sollten Sie den Rekordversuch in Stufe 6 überstehen, 
melden Sie sich beim Guiness-Buch an. 

H.-J. Adler 


Unser Aufruf uns Ihre Programme einzusenden, 
hatte einen unerwartet großen Erfolg. Uns liegen in¬ 
zwischen mehrere hundert Programme vor. Fast 
alles sind Spiele. Von PAC MAN z.B. haben wir in¬ 
zwischen mindestens 50 Versionen; wo bleiben die 
kommerziellen Anwendungen??? 

Übrigens, das Bundesligatabellenprogramm ist uns 
auch mindestens lOmal fast gleichzeitig einge¬ 
schickt worden. Da könnte fast der Verdacht auf- 
kommen, daß alle es von der gleichen Quelle abge¬ 
tippt haben. 

Doch nun noch ein paar Bitten von uns: Gebt bitte- 
schön nicht andere Aufträge mit zu den Programm¬ 
sendungen. Diese gehen nämlich sofort zu unseren 
Programmierern, was zufolge hat, daß z.B. Abonne¬ 
mentaufträge, Leserbriefe oder Bestellungen für 
den Kassettenservice den Verlag erst mit zum Teil 
erheblicher Verzögerung erreichen. Diese Dinge 
bitte immer getrennt einsenden. 


3-D IRRGARTEN 

Ein hervorragendes Spiel für den TI99/4A und dazu 
noch in TI-Basic der Mehrzahl der Leser zugänglich. 

Sie befinden sich in einem dreidimensionalen Irrgar¬ 
ten, dessen Ausdehnung Sie zu Beginn des Spiels 
durch Wahl einer der 6 Schwierigkeitsgrade bestim¬ 
men können. Die Laufrichtung geben Sie durch die 
Pfeiltasten an. Eine kleine Hilfe bietet Ihnen ein 
Pfeil am unteren Bildschirmrand, der die Himmels¬ 
richtung des Ausganges anzeigt. Außerdem färbt 
sich der Boden des Labyrinthes gelb, wenn Sie den 
selben Gang ein zweites Mal betreten. Je höher Sie 
die Schwierigkeitsstufe wählen, desto mehr Gänge 
und Sackgassen hat das Labyrinth. 

Vorsicht, manch einer hat sich schon hoffnungslos 
verirrt! Dirk Gripp 


lOO REM ************ **** **** 

* 


HO REM* 
120 REM* 
130 REM* 


3D-IRRGARTEN 

Copyright by 
Dirk Gripp 


140 REM* 

150 REM* 

160 REM* Bearbeitet vom 
170 REM* Team des 
180 REM* Aktuell Verlages 
Muenchen 


* 

* 

* 

* 

* 

* 

* 

* 


■ * 


190 REM* 

200 REM* 

210 REM*Benoetigte Geraete* 
220 REM* TI99/4A Konsoie * 
230 REM* * 

240 REM* Speicherbelegung * 
250 REM* 10059 Bytes * 

2 6 0 REM ******************** 
270 CALL SCREEN(1) 

280 CALL CLEAR 

290 PRINT "....SCHWIERIGKEIT 

sgrade:": : : :"l. demo-irrg 
.": :"2. klein": :"3. mittel 
": :”4. MITTEL + EINFACH": : 

300 PRINT "5. SCHWER": :"6. 
SCHWER + EINFACH": : : : : 

310 FOR A=1 TO 8 

CALL COLOR( A , 4 ,1) 

CALL SOUND(100,900,A*3.7 


320 
330 
5) 

340 
350 
360 
370 
380 
390 
400 
, 30 
410 
420 
430 
440 
450 
460 
470 
490 

480 K=INT< K/2+1 
ZH=ZH1(K) 

SH=SH1<K) 

510 CALL SOUND(800,300,O) 
520 DIM FZ(40) 

DIM FS(40) 

DIM FELD^(2,30) 

FOR A=2 TO SH-2 
NULL*=NULL*&"0" 

NEXT A 


NEXT A 

FOR A=1 TO 4 
READ Z,S 
ZH1(A)=Z 
SH1(A)=S 
NEXT A 

DATA 8,10,10,14,16,24,20 

CALL KEY < O,K,S) 

IF S=0 THEN 410 
IF (K<49)+(K>54)THEN 410 
K=K-48 

IF (K<>4)*(K<>6)THEN 470 
LANG=6 

IF (K=l)+(K=2)+(K=3)THEN 


5) 


490 

500 


530 

540 

550 

560 

570 
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580 FOR A=3 TO ZH-1 

590 FELDS(1,A)= H 0"& H 1 H ^NULL$ 

1 " 

600 NEXT A 

610 FOR A=1 TO SH 

620 FELDS(1,2)=FELDS(1,2)&"1 

II 

630 FELDS(1,ZH)=FELDS(1,ZH)& 

II *1 

640 NEXT A 

650 FELDS(1,1)=NULLSk"000" 

660 REM 

670 FOR S1=4 TO SH-2 STEP 2 

680 FOR Z1=4 TO ZH-2 STEP 2 

690 IF SEGS(FELDS(1,ZI) j S1 , 1 

)<>"1" THEN 730 

700 NEXT ZI 

710 NEXT S1 

720 GOTO 1180 

730 Z=Z1 

740 S=S1 

750 CALL SOUND(-4200,-8,O) 

760 IF W=0 THEN 780 

770 W=W+1 

780 FZ(W)=Z 

790 FS(W)=S 

800 RANDOMIZE 

810 L=INT((4+LANG)*RND)+1 

820 IF L< =4 THEN 840 

830 L=2 

840 IF (L+2=AL)+(L-2=AL)THEN 
810 

850 AL-L 
860 W=W+1 
870 GOSUB 890 
880 GOTO lOOO 
890 SX=0 
900 ZX=0 

910 ON L GOTO 920,940,960,980 

920 ZX=-1 

930 RETURN 

940 SX=1 

950 RETURN 

960 ZX=1 

970 RETURN . 

980 SX=- 1 

990 RETURN 

lOOO FZ < W)=Z + ZX 

1010 FS(W)=S+SX 

1020 FOR GEF=0 TO W 

1030 IF (FZ(W)+ZX=FZ(GEF))*( 

FS(W)+SX=FS(GEF))THEN 1090 

1040 NEXT GEF 

1050 IF SEGS ( FELDS ( 1 , Z+2*ZX ) 

,S+2*SX,1)="1" THEN 1120 


1060 Z=Z+2*ZX 

1070 S=S+2*SX 

1080 GOTO 760 

1090 W=0 

HOO Zl=Zl-2- 

llio GOTO 700 

1120 FOR F=0 TO W 

1130 FELDS(1,FZ(F))=SEGS(FEL 

DS ( 1, F Z ( F ) ) , l,FS(F)-l)8e"l M &S 

EGS(FELDS(1,FZ(F)),FS(F)+1,1 

OO) 

1140 NEXT F 

1150 CALL SOUND(-1200,Sl*50+ 
110,0) 

1160 W=0 
1170 GOTO 700 
1180 REM 

1190 FELDS(1, ZH- 1)=SEGS(FELD 
S(1,ZH-1),l,SH-l)k H 0" 

1200 FOR A=1 TO ZH 
1210 FOR B=1 TO SH 
1220 FELDS(2,B)=FELDS(2, B)kS 
EGS(FELDS(1,A),B,1) 

1230 NEXT B 

1240 CALL SOUND(100,(INT(A/2 
)+1)*110,O) 

1250 NEXT A 
1260 ZEILE=3 
1270 SPALTE=3 
1280 L=2 
1290 AL=2 
1300 CALL CLEAR 
1310 GOSUB 3760 

1320 VOLLS="FFFFFFFFFFFFFFFF 

M 

1330 LEERS="O" 

1340 HAVOS="3C3C3C3C3C3C3C3C 

H 

1350 HARES="FF7F3F1F0F070301 

M 

1360 DIM ZLS(4) 

1370 ZLS(1)="180C06FFFF060C1 
8" 

1380 ZLS(2)="183C7EDB9918181 
8" 

1390 ZLS(3)= H 183060FFFF60301 
8” 

1400 ZLS(4)="18181899DB7E3C1 
8" 

1410 HALIS="FFFEFCF8F0E0C080 

II 

1420 FOR A— 1 TO 7 
1430 CALL CHAR(A*8+25,VOLLS) 
1440 CALL CHAR(A*8+26,LEERS) 
1450 CALL CHAR(A*8+27,HALIS) W 
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1460 NEXT A 

1470 FOR A=8 TO 14 

1480 CALL CHAR(A*8+25,VOLL«) 

1490 CALL CHAR<A*8+26,LEER«) 

1500 CALL CHAR(A*8+27,HARE«) 

1510 NEXT A 

1520 CALL CHAR<144,VOLL«) 
1530 CALL CHAR(152,VOLL«) 
1540 CALL CHAR(153,LEER«) 
1550 FOR A=1 TO 16 
1560 CALL COLOR(A,Fl,Fl) 

1570 CALL SOUND(100,INT<10*R 
ND)+110,A) 

1580 NEXT A 

1590 FOR A= 1 TO 16 

1600 READ S,ZE,0 

1610 CALL VCHAR<1,S,ZE,O) 

1620 NEXT A 

1630 DATA 1,30,24,2,33,48,4, 
41,96,8,49,72,11,57,48,13,65 
,43,15,73,24,16,81,24,17,144 
,24 

1640 DATA 18,89,24,19,97,24, 

20,105,48,22,113,48,24,121,7 

2,27,129,96,31,137,43 

1650 FOR A=1 TO 15 

1660 READ Z,S,ZE,O 

1670 CALL HCHAR(Z,S+l,ZE,O) 

1680 NEXT A* 

1690 DATA 10,16,82,1,11,15,7 
4,3,12,14,66,5,13,13,66,7,14 
,12,58,9,15,11,58,11,16,10,5 
O,13,17,9,50,15 

1700 DATA 18,8,50,17,19,7,42 
,19,20,6,42,21,21,5,42,23,22 
,4,42,25,23,3,34,27,24,2,34, 
29 

1710 S=17 

1720 FOR A= 10 TO 24 
1730 READ Z 
1740 S=S-1 

1750 CALL HCHAR(A,S,Z) 

1760 NEXT A 
1770 8=17 

1780 FOR A=10 TO 24 
1790 READ Z 
1800 S=S+1 

1810 CALL HCHAR < A,S,Z) 

1820 NEXT A 

1830 DATA 83,75,67,67,59,59, 
51,51,51,43,43,43,43,35,35,9 
1,99,107,107,115,115,123,123 
, 123 

1840 DATA 131,131,131,131,13 
9, 139 


1850 CALL HCHAR(23,17,143) 
1860 GOTO 4070 
1870 SR=0 

1880 IF ZEILE< = 10 THEN 1900 
1890 IF ZEILE >ZH/2 THEN 1950 
1900 IF SPALTE >SH/2 THEN 193 
O 

1910 GOSUE 3760 
1920 GOTO 1990 
1930 GOSUB 3800 
1940 GOTO 1990 

1950 IF SPALTE>SH/2 THEN 198 
O 

1960 GOSUB 3840 

1970 GOTO 1990 

1980 GOSUB 3880 

1990 IF ZIEL< >1 THEN 2010 

2000 F1=2 

2010 CALL COLOR(15,Fl,Fi) 

2020 CALL COLOR(16,Fl,Fl) 

2030 CALL CHAR(144,VOLL«) 

2040 FOR GZ=1 TO 7 

2050 CALL COLOR(GZ,Fl,Fl) 

2060 CALL COLOR(15-GZ,Fi , Fl) 

2070 NEXT GZ 

2080 GOSUB 3170 

2090 FOR GZ=1 TO GHOE 

2100 GANG(GZ)=GANG(GZ)+1 

2110 NEXT GZ 

2120 GOSUB 3170 

2130 IF , SEG«(FELD«(1,ZEILE + Z 

X),SPALTE+SX,1)<> M 2" THEN 21 

50 

2140 F4=12 

2150 GOSUB 4320 

2160 ZEUE=152 

2170 FOR GG=i TO GHOE . 

2180 ON GANG(GG)GOSUB 3300,3 
320,3340,3370,3400,3440,3480 
,3510,3530,3550,3580,3610,36 
50,3690 
2190 NEXT GG 

2200 CALL COLOR(15,F1,F2) 
2210 IF SGN(PO)< >-1 THEN 224 
O 

2220 FA=0 
2230 GOTO 2250 
2240 FA=PO 

2250 FOR FAR=1 TO 7-FA 
2260 CALL COLOR(FAR,F2,F4) 
2270 CALL COLOR(15-FAR,F2,F4 
) 

2280 NEXT FAR 

2290 CALL CHAR(143,ZL«(L)) 
2300 GOTO 2510 
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2310 REM 

2320 CALL SOUND(-1,20000,30) 
2330 CALL KEY( O , K, R) 

2340 IF R=0 THEN 2330 

2350 CALL SOUND(50,1OOO,1O) 

2360 METER1=METER1+1 

2370 ZEILE=ZEILE+ZX 

2380 SPALTE=SPALTE+SX 

2390 IF SEG*(FELD*(1,ZEILE), 

SPALTE,1)=”2" THEN 2420 

2400 METER2=METER2+1 

2410 FELD*(1 ,ZEILE)=SEG*(FEL 

D* <1,ZEILE) , 1 , SPALTE-1 ) k ,, 2"& 

SEG*(FELD*(1,ZEILE),SPALTE+1 


, 51 ) 




2420 

IF 

F1=2 THEN 

2460 

2430 

IF 

K=63 THEN 

3920 

2440 

IF 

K=33 THEN 

3970 

2450 

IF 

K=88 THEN 

4020 

2460 

IF 

(F1=2)*(P0>5)THEN 46 

50 




2470 

IF 

PO +1=7 THEN 4570 

2480 

CALL SOUND(lOOO,-4,0) 

2490 

SR 

= SR + 1 


2500 

PO 

= P0+ 1 


2510 

IF 

(SR/2)-(INT(SR/2))=0 


THEN 2540 

2520 CALL COLOR(16,F2,F1) 

2530 GOTO 2550 

2540 CALL COLOR(16,F1,F2) 

2550 IF P0=0 THEN 2620 

2560 IF SGN(PO)=-1 THEN 2600 

2570 CALL COLOR(8-PO,F1 , F1) 

2580 CALL COLOR(PO+7,F1,F1) 

2590 GOTO 2630 

2600 CALL CHAR(144,HAVO*) 

2610 GOTO 2630 

2620 CALL CHAR ( 144, V/OLL$) 

2630 FOR GY=1 TO GHOE 

2640 IF (GANG(GY)>7)+(GANG(G 

Y)=-15)THEN 2700 

2650 IF SGN(GANG<GY) )=-l THE 

N 2680 

2660 CALL COLOR(8-GANG(GY),F 
4,F4) 

2670 IF GANG(GY)-1=P0 THEN 2 
740 

2680 CALL COLOR(9-ABS(GANG(G 
Y)),F2,F4) 

2690 GOTO 2740 

2700 IF SGN(GANG(GY) ) =-l THE 
N 2730 

2710 CALL COLOR(GANG(GY),F4,F4) 
2720 IF GANG(GY)-8=P0 THEN 2 
740 


2730 CALL COLOR(ABS(GANG(GY) 

)-1,F2,F4) 

2740 NEXT GY 

2750 GOSUB 3170 

2760 IF K0H0E=0 THEN 2970 

2770 IF SR/2-INT(SR/2)=0 THE 

N 2800 

2780 ZEUE=153 

2790 GOTO 2810 

2800 ZEUE=152 

2810 FOR GK=1 TO KOHOE 

2820 GAKO(GK)=(ABS(GAKO(GK)) 

-1)*(SGN(GAKO(GK))) 

2830 IF GAKO(GK)=8 THEN 2880 
2840 IF GAKO(GK)< >-1 THEN 29 
60 

2850 GOSUB 3300 

2860 CALL COLOR(7,F4,F4 ) 

2870 GOTO 2900 

2880 GOSUB 3510 

2890 CALL COLOR(8,F4,F4 ) 

2900 FOR B=GHOE TO 1 STEP -1 
2910 GANG(B+l)=GANG(B) 

2920 NEXT B 

2930 GANG(1)=ABS(GAKO(GK ) ) 
2940 KOHOE=KOHOE-l 
2950 GH0E=GH0E+1 
2960 NEXT GK 

2970 IF SGN(PO)=—1 THEN 3020 

2980 FOR GW=1 TO GHOE 

2990 IF (GANG(GW)-1<>PO)*(GA 

NG(GW)-8<>P0)THEN 3010 

3000 GOSUB 3720 

3010 NEXT GW 

3020 GOSUB 3040 

3030 GOTO 2330 

3040 REM 

3050 IF (SR/2)-(INT(SR/2))=0 
THEN 3080 
3060 ZEUE=152 
3070 GOTO 3090 
3080 ZEUE=153 
3090 FOR GN=1 TO GHOE 
3100 IF (GANG(GN)+1<>8)*(GAN 
G(GN)+1<>15)THEN 3130 
3110 GANG(GN)=(GANG(GN)+1)*< 
-1 ) 

3120 GOTO 3150 
3130 GANG(GN)=GANG(GN)+1 
3140 ON GANG(GN)GOSUB 3300,3 
320,3340,3370,3400,3440,3480 
,3510,3530,3550,3580,3610,36 

50,3690 
3150 NEXT GN 
3160 RETURN 


3170 REM 

3180 FÜR GN=1 TO GHOE 
3190 IF (GANG< GN)=1) + (GANG(G 
N)=8)THEN 3280 

3200 IF SGN(GANG(GN))<>-i TH 
EN 3220 

3210 GHOE=GHOE-1 

3220 IF (GANG(GN)>7)+(GANG(G 

N)=-15)THEN 3250 

3230 ZEUE=(9-ABS(GANG(GN)))* 

8 + 25 

3240 GOTO 3260 

3250 ZEUE=(ABS(GANG(GN))-1)* 

8 + 25 

3260 ON ABS(GANG(GN))-1 GOSU 

B 3300,3320,3340,3370,3400,3 

440,3480,3510,3530,3550,3580 

,3610,3650,3690 

3270 NEXT GN 

3280 RETURN 

3290 REM 

3300 CALL VCHAR(1,16,ZEUE,9) 
3310 RETURN 

3320 CALL VCHAR(1,15,ZEUE,1O 
) 

3330 RETURN 

3340 CALL VCHAR(1,13,ZEUE,11 
) 

3350 CALL VCHAR(1,14,ZEUE,11 
) 

3360 RETURN 

3370 CALL VCHAR(1,12,ZEUE,13 
) 

3380 CALL VCHAR(1,11,ZEUE,13 
) 

3390 RETURN 

3400 FOR B=8 TO 10 

3410 CALL VCHAR(1,B,ZEUE,15) 

3420 NEXT B 

3430 RETURN 

3440 FOR B=4 TO 7 

3450 CALL VCHAR(1,B,ZEUE , 18) 

3460 NEXT B 

3470 RETURN 

3480 CALL VCHAR(1,2,ZEUE,22) 
3490 CALL VCHAR (1,3, ZEUE,,22) 
3500 RETURN 

3510 CALL VCHAR(1,18,ZEUE,9) 
3520 RETURN 

3530 CALL VCHAR(1,19,ZEUE,1O 
) ' 

3540 RETURN 

3550 CALL VCHAR(1,20,ZEUE , 11 
) 

3560 CALL VCHAR(1,21,ZEUE , 11 
) 


3570 RETURN 

3580 CALL VCHAR(1,22,ZEUE, 13 
) 

3590 CALL VCHAR(1,23,ZEUE , 13 
) 

3600 RETURN 

3610 FOR B=24 TO 26 

3620 CALL VCHAR(1,B,ZEUE,15) 

3630 NEXT B 

3640 RETURN 

3650 FOR B=27 TO 30 

3660 CALL VCHAR(1,B,ZEUE , 18 ) 

3670 NEXT B 

3680 RETURN 

3690 CALL VCHAR(1,31,ZEUE , 22 
) 

3700 CALL VCHAR(1,32,ZEUE , 22 
) 

3710 RETURN 
3720 REM 
3730 ZEUE=144 

3740 ON GANG(GW)GOSUB 3300,3 

320,3340,3370,3400,3440,3480 

,3510,3530,3550,3580,3610,36 

50,3690 

3750 RETURN 

3760 F1=3 

3770 F2=4 

3780 F 4= 15 

3790 RETURN 

3800 F1=5 

3810 F2=6 

3820 F4= 16 

3830 RETURN 

3840 F1=5 

3850 F2=8 

3860 F4=15 

3870 RETURN 

3880 F1=9 

3890 F2=1O 

3900 F4=16 

3910 RETURN 

3920 IF L=4 THEN 3950 

3930 L=L+1 

3940 GOTO 4070 

3950 L=1 

3960 GOTO 4070 

3970 IF L=1 THEN 4000 

3980 L=L—1 

3990 GOTO 4070 

4000 L=4 

4010 GOTO 4070 

4020 IF L=2 THEN 4000 

4030 IF L=1 THEN 4060 

4040 L=L—2 
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4050 GOTO 4070 

4060 L=3 

4070 GOSUB 890 

4080 IF ZX=0 THEN 4130 

4090 SZ—.2 

4100 SUFE=SPALTE 

4110 SUAE=ZEILE 

4120 GOTO 4160 

4130 SZ=1 

4140 SUFE=ZEILE 

4150 SUAE=SPALTE 

4160 REM 

4170 IF SEG*(FELD*(SZ,SUFE), 

SUAE + ZX + SX, 1)<> M 1 " THEN 4190 

4180 IF <ZEILE=3)*<SPALTE=3) 

*(L=2)THEN 3920 ELSE 4570 

4190 ALSX=SX 

4200 AL=L 

4210 ALZX=ZX 

4220 P01=0 

4230 SUAE1=SUAE 

4240 SUAE1=SUAE1+ZX+SX 

4250 IF SEG$(FELD$(SZ,SUFE) , 

SUAE1, 1)=’’1" THEN 4300 

4260 P01=P01+1 

4270 IF (SUFE=ZEILE)*(SUAE1= 

SH)*(ZEILE=ZH-1)THEN 4290 

4280 GOTO 4240 

4290 ZIEL=1 

4300 P0=7-PO1 

4310 GOTO 1870 

4320 REM 

4330 GH0E=0 

4340 IF P0<=0 THEN 4350 ELSE 
4360 

4350 PO1=7 

4360 FOR A=0 TO POl-1 
4370 SUGA*=SEG*(FELD*(SZ,SUF 
E+ZX+SX),SUAE+(P01-A)*(SX+ZX 
), 1 > 

4380 IF (SUGA*< >“0“)*(SUGA*< 
>"2")THEN 4400 

4390 ON L GOSUB 4790,4760,47 


90,4760 

4400 SUGA*=SEG*(FELD*(SZ,SUF 
E-(ZX+SX)),SUAE+(P01-A)*(SX+ 
ZX),1) 

4410 IF (SUGA*< V0" )*(SUGA*< 
>"2")THEN 4430 

4420 ON L GOSUB 4760,4790,47 

60,4790 

4430 NEXT A 

4440 REM 

4450 IF SGN(PO) < > — 1 THEN 455 
O 


4460 K0H0E=0 

4470 FOR A=ABS(PO)+8 TO 8 ST 
EP -1 

4480 SUGA*=SEG*(FELDS(SZ,SUF 
E+ZX+SX),SUAE+A*(SX+ZX),1) 
4490 IF (SUGA*< >"0")*(SUGA*< 
>"2 M )THEN 4510 

4500 ON L GOSUB 4850,4820,48 
50,4820 

4510 SUGA*=SEG*(FELDS(SZ,SUF 
E- (ZX. + SX) ) , SUAE +A* (ZX + SX) , 1 ) 
4520 IF (SUGA$<>"0")*(SUGA$< 
>»2")THEN 4540 

4530 ON L GOSUB 4820,4850,48 
20,4850 


4540 

NEXT A 

4550 

RETURN 

4560 

REM 

4570 

6 ,10) 

CALL SOUND(-400,110,0,- 

4580 

ZX=ALZX 

4590 

SX=ALSX 

4600 

METER1=METERI-1 

4610 

L = AL 

4620 

SPALTE=SPALTE-SX 

4630 

ZEILE=ZEILE-ZX 

4640 

GOTO 2330 

4650 

REM 

4660 

FOR A=2 TO 16 

4670 

CALL SCREEN(A) 

4680 

CALL SOUND(100,INT((100 

0-110+1)*RND) +110,0) 

4690 

NEXT A 

4700 

CALL SCREEN(1) 

4710 

CALL KEY(0,Z,X) 

4720 

IF X=0 THEN 4710 

4730 

CALL CLEAR 

4740 

PRINT "GELAUFENE METER: 


";meteri: : : :"MINdest-met 


ER"j METER2 

4750 

END 

4760 

GHOE=GHOE+1 

4770 

GANG(GHOE)=15-P01+A 

4780 

RETURN 

4790 

GHOE=GHOE+1 

4800 

GANG(GHOE)=8-P01+A 

4810 

RETURN 

4820 

KOHOE=KOHOE+1 

4830 

GAKO(KOHOE)=A+2 

4840 

RETURN 

4850 

KOHOE=KOHOE+1 

4860 

GAKO(KOHOE)=(A-5)*-l 

4870 

RETURN 
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HAUS/MO 


Dieses Programm gehört zu einem Paket von 3 Pro- 

E ammen, ist aber auch alleine lauffähig. 

ie Arbeitsweise des Programmes ist schnell und 
genau. 

Es schafft Ordnung in allen monatlichen Geldbewe¬ 
gungen, ohne lange in Unterlagen und Belegen her¬ 
umzuwühlen. 

HAUS/JA 


Eine gute Erweiterung des obigen Programmes. Ist 
aber nur mit den Programmen Haus/Mo und Haus/ 
Gen zusammen lauffähig. 

Es wertet die Daten aus, die mit Haus/Mo erstellt 
wurden. 

HAUS/GEN 

Das Kurzprogramm Haus/Gen erstellt lediglich die 
Dateien, die für das Programm Haus/Mo erforderlich 
sind. Nach dem Erstellen der Dateien ist das Pro¬ 
gramm Haus/Gen wieder zu löschen und Haus/Ja 
zu laden. 


HAUS/MO 

Nach Start des Programmes bekommen Sie auf der 
linken Seite des Bildschirmes 20 mögliche Ausgabe¬ 
kriterien zur Wahl gestellt, auf der rechten Seite 8 
Einnahmekriterien. Alle Kriterien sind durchnume¬ 
riert und durch Wahl der Kennziffer haben Sie nun 
die Möglichkeit, Einnahmen, Ausgaben oder Um¬ 
buchungen einzugeben. Die Summen werden ge- ' 
trennt nach der jeweiligen Kategorie von den Ein¬ 
nahmen abgezogen. Haben Sie alle Geldbewegun¬ 
gen des Tages eingegeben, können Sie nun die Aus¬ 
wertung im Menü anwählen. Sie bekommen nun 
eine genaue Übersicht über Ihre Kontostände und 
die einzelnen Umbuchungen und Ausgaben. 
Anschließend können Sie die Daten auf Diskette 
abspeichern, so daß sie Ihnen am Tag danach wie¬ 
der zur Verfügung stehen. Am Ende eines Monats 
wählen Sie die Funktion ‘Monat abschließen’. 
Hierauf werden die Dateien für die Weiterverarbei¬ 
tung mit dem Programm ‘Haus/Ja’ vorbereitet und 
die Daten im Haus/Mo auf ‘0’ gesetzt, so daß Ihnen 
das Programm im darauffolgenden Monat wieder 
zur Verfügung steht. • 

Steuerung: 

Menüwam durch Eingabe der Kennziffer. 

Wahl der Ausgaben durch Kennziffer. 

Wahl der Einnahmen durch Kennziffer. 

Taste )B’ Kassenstand (bar) 

Taste ‘G’ Girokonto 
Taste ‘P’ Postgirokonto 
Taste ‘S’ Sparkonto 
Taste ‘K’ Kreditkonto 

Taste ‘0’ Abbuchung oder Neuverbuchung der 
Einnahmen. 

Alfred Nitschke 
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*Benoetigte Geraete!* 

* TI99/4A Konsole * 

* Ext. Basic 
*Disk od. Cass.Rec. 

* moegl. Drucker 


* 

* 

* 

* 


Speicherbelegung: 
7819 Bytes 


********************* 
MONATLICHE AUSGABEN UN 
D EINNAHMEN 

310 ! ********************** 

*********** 

320 CALL CLEAR :: CALL SCREE 
N ( 1 1 ) 

330 DISPLAY AT(2,1):RPT$("*" 
, 23) .* "**. . MONATLICHE. . AUSGAB 
EN..**”:"**..UND..EINNAHMEN. 

.**":RPTS( "*",28) 

340 CALL CHAR(130,"080808080 
8080308") 

350 CALL CHAR(131,"OOOOOOOOF 
F" ) 

360 DIM B(20),2(20),SB(20) 
370 DISPLAY AT(1O,1):"WAHL-L 
ISTE" :: DISPLAY AT(13,3):"* 
1*..EINLESEN BISH. DATEN" :: 

DISPLAY AT<14,3):"*2*..EING 
ABE:..AUSGABEN" 

380 DISPLAY AT(15,3):"*3*..E 
INGABE:..EINNAHMEN" :: DISPL 
AY AT(16,3):"*4*..AUSWERTUNG 
" :: DISPLAY AT(17,3):"*5*.. 

DATEN SPEICHERN" 

390 DISPLAY AT(18,3):"*6*..M 
ONAT BEENDEN" :: DISPLAY AT( 
19,3) I "*7*. . AUSDRUCKEN" D 

ISPLAY AT(20,3):"*8*..ENDE" 
400 DISPLAY AT(23,1)BEEP:"KE 
NNUMMER EINGEBEN" 

410 CALL KEY(O,K,S) 

420 IF (S=0)+(K<48)+(K>56)<> 
O THEN 410 

430 ON K-48 GOTO 440,820,115 
O,1450,1730,1910,2050,2040 
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440 ! LESEN DER BISH.SUMM. 

450 ON ERROR 570 

460 OPEN #20:“DSK1.HAUS/1",I 

NTERNAL,INPUT ,FIXED 255 

470 FOR F=1 TO 20 

480 INPUT #20:SB(F), 

490 NEXT F 

500 FOR E=1 TO 8 

510 INPUT #20:SZ(E), 

520 NEXT E 
530 CLOSE #20 

540 OPEN #21:"DSK1.HAUS/2",I 
NTERNAL,INPUT ,FIXED 255 
550 INPUT #21:KS,KG,KP,KZ,KK 
,U,SE,SU,DATUM* 

560 CLOSE #21 

570 IF KG=0 AND KP=0 THEN 58 
O ELSE 650 

580 DISPLAY AT(4,1)ERASE ALL 
: "KONTO-STAENDE EINGEBEN" :: 

DISPLAY AT(S,1):"KASSE /BAR 
": :"Girokonto": :"POSTSCHEC 

KKONT O": : "SPARKONTO": :"KRE 

DITKONTO" 

590 ACCEPT AT(8,18)VALIDATE( 
DIGIT,"."):KS 

600 ACCEFT AT <10, 18)VALIDATE 
(DIGIT,""):KG 

610 ACCEPT AT<12,18)VALIDATE 
(DIGIT,"-."):KP 

620 ACCEPT AT(14,18)VALIDATE 
(DIGIT,"."):KZ 

630 ACCEPT AT(16,18)VALIDATE 
(DIGIT,"):kk 
640 GOTO 320 

650 DISPLAY AT(1,6)ERASE ALL 
:"* KONTO-STAND *" 

660 DISPLAY AT<3,6):"DATUM: 

"J DATUMS 

670 DISPLAY AT(6,1):"KASSENB 
estand...:” :: Display at<6, 

20):USING ••######.##": KS 
680 DISPLAY AT(8,1): H GIROKON 
to.:: Display at<8, 

20)IUSING "######.## H :KG 
690 DISPLAY AT(IO,1):"POSTSC 
HECKKONTO :: DISPLAY AT<1 
0,20):USING "######.##":KP 
700 DISPLAY AT(12,1):“SPARKO 
nto.:" :: Display ATd 

2.20) :using "######.##":KZ 
710 DISPLAY AT(14,1):"KREDIT 

Konto.: " :: Display at(1 

4.20) :USING “######.##":KK 

720 DISPLAY AT(18,1):"SUMME 
EINNAHMEN : " :: DISPLAY ATd 

8.20) :USING "######.##":SE 


730 DISPLAY AT(20,1):"SUMME 
AUSGABEN. . : " : : DISPLAY AT (2 
0 , 20 ):using “######.##":su 
740 DISPLAY AT(22,1):"UMBUCH 

UNGEN.: " :: DISPLAY AT ( 2 

2,20 ) : USING •*######. ##": U 
750 ! 

760 ! 

780 CALL SOUND(150,1400,5) 
790 CALL KEY(0,K,S):: IF S=0 
THEN 790 
800 GOTO 320 
810 ! 

820 ! EINGEBEN WEITERER 

AUSGABEN 
830 CALL CLEAR 

840 DISPLAY AT(1,1):"AUSGABE 
N" 

850 RESTORE 1500 
860 FOR 1=1 TO 20 :: READ AS 
:: DISPLAY AT(1+2,1):USING 
"##":i :: Display at(I+2,4)s 
ize(12):a$ :: next i 
870 CALL VC HAR (1, 19, 130,22) 
880 DISPLAY AT(1,19):"AUSGAB 
EN" :: DISPLAY AT(2,19):"BIS 
HER: " 

890 DISPLAY AT(4,21):USING " 
#####.##":SU 

900 DISPLAY AT (7, 19) : " ART*. . . 
O" 

910 ACCEPT AT(7,25)BEEP VALI 
DATE(DIGIT)SIZE(-2):A :: DIS 
PLAY AT(22,19):"" 

920 IF A=0 THEN 150 

930 IF A >20 THEN 900 

940 DISPLAY AT(10,19):"BETRA 

g:" :: accept at( 12 , 21 )beep 

VALIDATE(DIGIT, ". ") :B < A) 

950 DISPLAY AT(15,19):"VON K 
TO..B" :: ACCEPT AT(15,28)BE 
EP VALIDATE("B,P,G,S")SIZE(- 
1 ) : KS 

960 DISPLAY AT(17,19):"AUF £ 
TO..O" 

970 IF KS= H B" THEN 1010 

980 IF KS="G" THEN 1020 

990 IF KS="P“ THEN 1030 

lOOO IF KS="S" THEN 1040 
1010 ACCEPT AT(17,28)BEEP VA 
LIDATE("G,P,S,K,0")SIZE(-1): 
ts :: ks=ks-B(A):: sb(A)=sb( 
A)+B(A):: GOTO 1050 
1020 ACCEPT AT(17,28)BEEP VA 
LIDATE("B,P,S,K,O")SIZE(-1): 
TS :: kg=kg-b(a):: sb(A)=sb( 
A)+B(A):: GOTO 1050 




1030 ACCEPT AT(17,28)BEEP VA 
LIDATE("B,G,S,K,0")SIZE(-1): 
ts :: kp=kp-b ( a') :: sb<a)=sb< 
A)+B(A):: GOTO 1050 
1040 ACCEPT AT(17,28)BEEP VA 
LIDATE <"B,G,P,K,O h ) SIZE (-1 ) : 
ts :: kz=kz-B(A):: SB(A)=SB( 
A)+B <A) 


1050 

A) 

IF 

TS="G" 

THEN 

KG=KG+B( 

1060 

A) 

IF 

TS="B" 

THEN 

KS=KS+B( 

1070 

A) 

IF 

TS="P" 

THEN 

KP=KP+B( 

1080 

A) 

IF 

TS="S" 

THEN 

KZ=KZ+B( 

1090 

A) 

IF 

TS="K" 

THEN 

KK=KK+B( 

1 lOO 

IF 

TS="K" 

OR TS 

i="S" OR 


TS="0" THEN SU=SU+B(A)ELSE 1 
120 

lllO GOTO 1130 

1120 U = U + B < A) : : DISPLAY AT(2 
2,19):"UMBUCHUNG" 

1130 DISPLAY AT(7,25):"" :: 

DISPLAY AT(12,21):"" :: DISP 
LAY AT ( 15,28) " :: DISPLAY 

AT(17,28):"" 

1140 GOTO 880 
1150 ! ERFASSUNG WEITERER 

EINNAHMEN 
1160 CALL CLEAR 
1170 DISPLAY AT(1,1):"EINNAH 
MEN“ 

118Ö RESTORE 1620 :: FOR A=1 

to 8 :: read eis :: Display 

AT(5+A,1):STR*(A):: DISPLAY 
AT(5 + A,3):EIS :: NEXT a 
1190 CALL VCHAR(1,19,130,20) 
1200 DISPLAY AT(1,19):"EINNA 
HMEN" :: DISPLAY AT(2,19):"B 

isher:- 

1210 DISPLAY AT(4, 21 ):USING 

”#####.##":se 

1220 DISPLAY AT(7,19):"ART:. 
.0" :: ACCEPT AT(7,25)BEEP V 
ALIDATE(DIGIT)SIZE(-1):E 
1230 IF E=0 THEN 150 
1240 IF E>8 THEN 1220 
1250 DISPLAY AT(1O,19):"BETR 
ag: m :: accept at< 12 , 21 >beep 
VALIDATE(DIGIT,".")IZ(E) 
1260 DISPLAY AT(15,19):"VON 
KTO..O" :: ACCEPT AT(15,28)B 
EEP VALIDATE("G,P,S,O")SIZE( 
-1):KS 


1270 DISPLAY AT(17,19):"AUF 
KTO..B" :: DISPLAY AT(22,19) 

■ M II 

• 

1280 IF KS="G" THEN 1320 ELS 
E IF K*= ,, P" THEN 1330 ELSE I 
F K$="S” THEN 1340 ELSE IF K 
<£="0" THEN 1350 

1320 ACCEPT AT(17,28)BEEP VA 
LIDATE("B,P,S")SIZE(-1):TS : 

: kg=kg-z ( e ):: sz (E) =sz (E) +z 

(E):: GOTO 1380 

1330 ACCEPT AT(17,28)BEEP VA 
LIDATE("B,G,S")SIZE(-1):TS : 

: kp=kp-z(E): : sz (E) =sz (E) +z 
(E):: GOTO 1380 

1340 ACCEPT AT(17,28)BEEP VA 
LIDATE("B,G,P")SIZE(-1):TS : 

: kz=kz- z< e):: sz (E)=sz(E) +z 
(E):: GOTO 1380 

1350 ACCEPT AT(17,28)BEEP VA 
LIDATE("B,G,P,S,K")SIZE(-1): 
TS 

1360 IF TS="K" THEN KK=KK + Z( 
E):: GOTO 1440 

1370 SZ (E) =SZ (E) +Z (E) : SE = S 

E+Z(E) 

1380 IF TS="G" THEN KG=KG+Z< 
E) 

1390 IF TS="B" THEN KS=KS+Z( 
E) 

1400 IF TS="P" THEN KP=KP+Z( 
E) 

1410 IF TS="S " THEN KZ=KZ + Z( 
E) 

1420 IF KS="O" THEN 1440 

1430 u=u+z(E):: Display at (2 
2,19):"Umbuchung" :: 

1440 DISPLAY AT(7,25):"" :: 

Display at (12, 21 ):"" :: DISP 
LAY AT(15,28):"" :: DISPLAY 

at (17,28):"" :: goto 
1210 

1450 ! AUSWERTUNG 

1460 CALL CLEAR 

1470 GS=0 

1480 RESTORE 1500 

1490 FOR F=1 TO 20 

1500 DATA HAUSHALT,MIETE/NK, 

EINRICHTUNG,KLEIDUNG,AUTO,VE 

RSICHERUNG,AUSGEHEN,CASINO 

1510 DATA TELEFON,URLAUB,FS/ 

RADIO,ZEITSCHRIFTEN,COMPUTER 

,SCHALLPLATTEN,VIDEO,WEITERB 

ILDUNG,TOTO/LOTTO,KREDIT,UEB 

ERWEISUNG,SONSTIGES 

1520 READ AUSGS 
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1530 DISPLAY AT(F,1)SIZE<5)I 

ausgs :: Display at(F,7):usi 
NG "####.##":SB(F) 

1540 GS=GS+SB(F) 

1550 NEXT F 

1560 DISPLAY AT(22,1):"SUMME 
» :: DISPLAY AT (22,6) : USING 

••#####. ##" : GS 

1570 CALL VCHAR(1,16,130,23) 
1580 DISPLAY AT(1,19):"AUSWE 
RTUNG" :: DISPLAY AT(2,19):S 

EG«(DATUMS,1,6 ) & " 1 9 "&SEGS(DA 
TUMS,7,2) 

1590 GZ=0 

1600 RESTORE 1620 

1610 FOR E=1 TO 3 

1620 DATA GEHALT,TR-GELD,VER 

SICHERUNG,ZINSEN,GUTSCHRIFTE 

N,VERKAEUFE,TOTO/LOTTO,SONST 

IGES 

1630 READ EINNS 

1640 DISPLAY AT(E+5,15)SIZE( 

6) :EINNS :: DISPLAY AT(E + 5,2 
2):USING "####.##":SZ<E) 

1650 GZ=GZ+SZ(E) 

1660 NEXT E 

1670 DISPLAY AT(15,15):"SUMM 
EI” :: DISPLAY AT(15,20):USI 
NG "######. #44" : GZ 
1680 DISPLAY AT(23,1)SIZE(5) 

:"real: M :: Display at<23,6) 
:using »44####. ##•■: su :: disp 

LAY AT(16,15):"REAL:" :: DIS 

FLAY AT(16,21):USING »#####. 

##»:se 

1690 IF SE >SU THEN 1700 ELSE 
1710 

1700 DISPLAY AT(20,15)BEEP:" 
EINNAHMEN-PLUS" :: DISPLAY A 
T(21,21):USING "#####.##":SE 
-SU :: GOTO 1720 
1710 DISPLAY AT(20,15)BEEP:" 
AUSG. ZU HOCH" :: DISPLAY AT 
(21,21 )*. USING •*#####.##": SU¬ 
SE 

1720 CALL KEY(0,K,S):: IF S= 
O THEN 1720 *. : CALL CLEAR : : 
GOTO 670 

1730 « SPEICHERN DER ZW.SUMMEN 
1740 CALL CLEAR 
1750 DISPLAY AT<1,1):RPTS<"- 
", 23) : "***. .DATEN. .ABSPEICHE 
RN..***":RPTS("-",23) 

1760 DISPLAY AT(8,1):"LETZTE 
Eingabe:" :: Display at(8,i 

7):DATUMS 


1770 DISPLAY AT(12,1):"HEUTI 
ges datum:" :: Display at<12 
,17):DATUMS :: ACCEPT AT(12, 
17)SIZE(-8):datums 


1780 

OPEN #20:"DSK1.HAUS/1", 

INTERNAL,OUTPUT,FIXED 

255 

1790 

DISPLAY AT(1,1): 

RPTS ( " - 

" , 23) 

: "* DATEN WERDEN 

GESPEI 

CHERT 

*":RPTS("-",28) 


1800 

FOR F=1 TO 20 


1810 

PRINT #20:SB(F), 


1820 

NEXT F 


1830 

FOR E=1 TO 8 


1840 

PRINT #20:SZ(E), 


1850 

NEXT E 


1860 

CLOSE #20 


1870 

OPEN #21:"DSK1.HAUS/2", 

INTERNAL,OUTPUT,FIXED 

255 

1880 

PRINT #2i:KS,KG, 

KP,KZ,K 


K,U,SE,SU,DATUMS 
1890 CLOSE #21 
1900 GOTO 150 

1910 CALL CLEAR '.MONAT BEEND 
EN 

1920 DISPLAY AT<3,1):RPTS<"- 
", 23) :"...MONATS - ABSCHLUSS 
: RPTS ( "-" , 23) 

1930 DISPLAY AT(7,1):"MONAT 
(IN ZIFFER):" :: ACCEPT AT(7 
,21)BEEP VALIDATE(DIGIT)SIZE 
(2):MO 

1940 OPEN #MO:"DSK1.HAUS/M"& 
STRS(MO),OUTPUT,INTERNAL,FIX 
ED 255 

1950 PRINT #M0:SE,SU 
1960 FOR 1=1 TO 20 
1970 PRINT #MO:SB(I), 

1980 NEXT I 

1990 FOR E=1 TO 8 

2000 PRINT #MO:SZ(E), 

2010 NEXT E 
2020 CLOSE #M0 

2030 se, su, u=o :: for 1 = 1 to 
20 :: SB(I)=o :: next i :: 
for e=i to s :: sz(E)=o :: n 

EXT E :: GOTO 1780 
2040 CALL CLEAR :: END 
2050 ! AUSDRUCKEN 

2060 GZ,GS=0 
2070 OPEN #2:"PIO.LF” 

2080 PRINT #2:CHRS(27)jCHRS( 
64) ; 

2090 PRINT #2:CHRS(27) ? " 1 " jC 
HRS(8); 

2100 PRINT #2:CHRS(14); 
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2110 PRINT #2:"AUSWERTUNG V0 
M "&DATUM* 

2120 PRINT «2:"":"" 

2130 PRINT 442: CHR*< 14) ? "AUSG 
ABEN" :: RESTORE 1500 :: PRI 
NT 442*."" 

2140 IMAGE 44 44 44 44 44 44 44 . 44 44 
2150 FOR F=1 TO 20 :: READ A 
USgs :: PRINT # 2 :AUSGS,,:: P 
RINT #2,USING 2140:SB(F):: G 
S = GS + SB(F):: NEXT F PRINT 

# 2 : "" 

2160 PRINT «2: "SUMME" , , : PR 

INT «2,USING 2140:GS 
2170 PRINT # 2 :"REAL:",,:: PR 
INT #2,USING 2140:SU 
2 180 PRINT 442 : " " ; " " 

2190 PRINT #2:CHRS<14)5"EINN 
AHMEN" :: RESTORE 1620 :: PR 
INT ** 2 : " " 

2200 FOR E= 1 TO o : : READ EI 
NNS :: PRINT 442: EINN*, , : : PR 
INT #2,USING 2140:SZ(E):: GZ 
=GZ + SZ <E>:: next E :: print 
# 2 :"" 

2210 PRINT 442: "SUMME" ,,: : PR 
INT 442 ,USING 2140:GZ 
2220 PRINT «2:"REAL:",,:: PR 
INT 442 ,USING 2140:SE 
2230 PRINT # 2 :"":"" : " " 

2240 PRINT 442: CHR*<27) j j C 
HR*(1); 

2250 IF SE >SU THEN PRINT «2: 
"EINNAHMEN-PLUS: . . " j SE-SU; "D 
M" ELSE PRINT #2:"AUSGABEN Z 
U HOCH UM"jSU-SE;"DM" 

2260 PRINT #2:CHR*<27) 5 " -"}C 
HR*(0) 

2270 print 442 :"":"":"" :: PR 

INT « 2 :CHR*(14)J"KONTOSTAND" 

:: PRINT # 2 :"" 

2280 PRINT #2:"KASSE / BAR", 
PRINT #2, USING 2140-.KS 
2290 PRINT **2: "GIROKONTO " , 
,:: PRINT #2,USING 2140:KG 
2300 PRINT #2:"POSTSCHECKKON 
TO",:: PRINT #2,USING 2140:K 
P 

2310 PRINT #2:"SPARKONTO..", 
PRINT #2,USING 2140*.KZ 
2320 PRINT #2:"KREDITKONTO", 
,:: PRINT #2,USING 2140:KK 
2330 PRINT «2:"" 

2340 IF (KS+KG+KF+KZ+KK)>0 T 
HEN 2350 ELSE 2360 


2350 PRINT #2: "GUTHABEN" 
PRINT #2,USING 2140:KS+KG+K 

p+kk+kz :: goto 2370 

2360 PRINT #2:"SCHULDEN": 

PRINT #2,USING 2140:ABS(KG+ 
KP+KK) 

2370 PRINT 442: CHRS ( 12) ; : CL 

;OSE 442 

2380 GOTO 320 
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Haus/Gen 
Copyright by 
A.Nitschke 

Bearbeitet vom 
Team des 

Aktuell Verlages 
Muenchen 

Benoetigte Geraete 
TI99/4A Konsole 
Ext. Basic 
Diskettenstation 
Programm Haus/Ja 
Programm Haus/Mo 

Speicherbelegung 
399 Bytes 


* 

* 

* 
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* 

* 

* 
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* 

* 
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* 
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* 

* 

* 

* 

* 

* 


********************** 


PROGRAMM GENERIERT 12 
DATEIEN FÜR PROGRAMM HAUS/JA 
340 DIM SB(20),SZ(8) 
t ern r Al I n FAR 


360 FOR M0.= 1 TO 12 
370 DISPLAY AT<10,1):"ICH OE 
FFNE DATEI F. MONAT ";STR*(M 
O) 

380 OPEN #M0: " DSK1 . HAUS/M"6iS 
TR*(MO),OUTPUT,INTERNAL,FIXE 
D 255 

390 PRINT 44MO : SE , SU 
400 FOR 1=1 TO 20 
410 PRINT 44MO:SB(I), 

420 NEXT I 

430 FOR E=1 TO 8 

440 PRINT 44MO:SZ(E), 

450 NEXT E 
460 CLOSE 44MO 
470 NEXT MO 
480 END 
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********************** 


* * 

* Haus/Ja * 

* Copyright by * 

* A. Nitschke * 

* * 

* Bearbeitet vom * 

* Team des * 

* Aktuell Verlages * 

* Muenchen * 

* * 

* Benoetigte Geraete * 

* TI99/4a Konsole * 

* Ext. Basic * 

* Diskettenstation * 

* moegl. Drucker * 

* Programm Haus/mo * 

* Programm Haus/Gen * 

* * 

* Speicherbelegung * 

* 6503 Bytes * 

* * 


********************** 


330 ! 

340 CALL CHAR(124, " 101010101 
010101",125,"000000FFFF") 

350 ! * MONATSSUMMEN ***** 

360 DIM SB(12,20),SZ(12,8),S 
E(12),SU(12),A«(20),MON«(12) 

,SAU(20),SEI(20) 

370 CALL CLEAR :: CALL SCREE 
N (4) 

380 DISPLAY AT(3,1):RPT«("*" 
,28):"** JAHRESAUSWERTUNG..1 
984 **":"** EINNAHMEN UND AU 
SGABEN **":RPT«("*",28) 

390 DISPLAY AT(11 , 1> : "WAHLLI 
STE" 

400 DISPLAY AT(15,3):"*1* EI 
NLESEN/MONAT":"..*2* AUSWERT 
IJNG: AUSGABEN" : " . .*3* AUSWER 
TUNG: EINNAHMEN"*4* AUSW 
ERTUNG: TOTAL" 

410 DISPLAY AT(19,3):"*5* AU 
SDRUCKEN":"..*6* ENDE" :: DI 
SPLAY AT(23,1)BEEP:"KENNUMME 
R EINGEBEN" 

420 CALL KEY(O,K,STATUS) 

430 IF (STATUS=0)+(K<48)+(K> 
54)00 THEN 420 

440 ON K-48 GOTO 460,670,810 
,950,1140,1120 

450 ! EINLESEN DER MONATSSUM 


460 CALL CLEAR .' : DISPLAY AT 
(3,1):RPT«(,28):"* EINLES 
EN DER MONATSSUMMEN":RPT«(" - 
" , 28) 

470 DISPLAY AT(7,1):"V0N MON 
at:" :: accept at(7,13)valid 

ATE(DIGIT)SI2E(2):NA 

480 DISPLAY AT(9,1)!"BIS MON 

at:" :: accept at(9,13)valid 

ATE(DIGIT)SIZE(2):NZ 

490 IF NA >12 OR NA >NZ THEN 5 

00 ELSE 510 

500 DISPLAY AT(11,1)BEEP:"FE 
HLER !" :: GOTO 470 

510 DISPLAY AT(7,1):"" :: DI 

splay at(9,d:" " :: Display 
at(11,1):"" 

520 DISPLAY AT<11,5):"BITTE 
UM GEDULD ..." 

530 RESTORE 1630 

540 FOR X=1 TO 12 :: READ MO 

N« (X) : ’. NEXT X 

550 FOR MO=NA TO NZ 

560 DISPLAY AT(14,4):"ICH LE 

se monat:" :: Display at(14, 

22):MON«(MO) 

570 OPEN #M0!"DSK1.HAUS/M"&S 
TR«(MO),INTERNAL,INPUT ,FIXE 
D 255 

580 INPUT #M0:SE(MO),SU(MO) 
590 FOR 1=1 TO 20 :: INPUT # 
mo:SB(MO,I),:: next i 
600 FOR E=1 TO 8 :: INPUT #M 

o:sz( mo,E),:: next e 

610 CL0SE #M0 
620 NEXT MO 
630 GOTO 370 

640 DATA HAUSHALT,MIETE/NK,E 
INRICHTUNG,KLEIDUNG,AUTO,VER 
SICHERUNG,AUSGEHEN,CASINO, TE 
LEFON,URLAUB,FS/RADIO 
650 DATA ZEITSCHRIFTEN,COMPU 
TER,SCHALLPLATTEN,VIDEO,WEIT 
ERBILDUNG,TOTO/LOTTO,KREDIT, 
UEBERWEISUNG,SONSTIGES 
660 DATA GEHALT,TR-GELD,VERS 
ICHERUNG,ZINSEN,GUTSCHRIFTEN 
,VERKAEUFE,TOTO/LOTTO, SONSTI 

GES 

670 AUSWERTUNG AUSGABEN 
680 CALL CLEAR :: RESTORE 64 

o :: for 1=1 to 20 :: read a 

$(I):: DISPLAY AT(I,1):USING 
■■##" :i :: Display AT(i,5)Si 
ze(8):a«(I):: next i 


3* 


MEN 
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690 CALL VCHAR(1,16,124,20) 
700 DISPLAY AT(23,1):"AUSG.A 
rt: o h :: accept aT(23,idbe 

EP VALIDATE(DIGIT)SIZE(-2):A 
:: IF A=0 THEN 370 :: IF A< 

1 0R A >20 THEN 700 

710 DISPLAY AT(23, 1 ) : " " 

720 DISPLAY AT(1,16):AS(A):: 

DISPLAY AT(2,16):RPT*("-",L 
EN(A$(A))) 

730 SSAU,SXAU=0 

740 RESTORE 1630 

750 FOR MM=1 TO 12 : : READ M 

ONAT* :: DISPLAY AT(MM+6,16) 

:monats :: Display at<mm+6,2 
1):USING "#####. ##" *. SB (MM, A) 

:: ssau=ssau+sb(MM,A):: next 
MM 

760 CALL HCHAR(20,17,125,14) 
770 DISPLAY AT(22,15):"SUM" 

:: DISPLAY AT(22,20):USING H 

######.##":ssau 

780 SXAU = SSAU/ (NZ+l-NA) : : DI 
SPLAY AT (24, 15) *. " 1 / "&STR* (NZ 
+1-NA):: DISPLAY AT(24,21):U 
SING "#####.##": SXAU 
790 GOTO 700 
800 ! 

810 ! AUSWERTUNG EINNAHMEN 

820 

830 CALL CLEAR : : RESTORE 66 

o :: for 1=1 TO 8 :: read a* 

(I):: DISPLAY AT(1+5,1):USIN 
g " ##":i :: Display at(I+5,5 
)size(8):as( i):: next i 

840 CALL VCHAR(1,16,124,20) 
850 DISPLAY AT(23, 1) : "EINN.A 
rt: o" :: accept aT(23,idbe 
EP VALIDATE(DIGIT)SIZE(-l): A 
:: IF A=0 THEN 370 :: IF A< 

1 OR A >8 THEN 850 

860 DISPLAY AT(23, 1 ) : " " 

870 DISPLAY AT(1,16):A*(A) I I 
DISPLAY AT(2,16):RPT*("-",L 
EN(A*(A))) 

880 SSEI,SXEI=0 

890 RESTORE 1630 

900 FOR MM—1 TO 12 :: READ M 

ONAT* :: DISPLAY AT(MM+6,16) 

:MONATE :: DISPLAY AT(MM + 6 ,2 
1) -.USING "#####. ##" : SZ (MM, A) 
:: ssei=ssei+sz(MM,A):: next 
MM 

910 CALL HCHAR(20,17,125,14) 


920 DISPLAY AT(22,15):"SUM" 

:: DISPLAY AT(22,20):USING " 
######.##" : SSEI 

930 SXEI=SSEI/(NZ+l-NA):: DI 
SPLAY AT(24,15):"1/"&STR*(NZ 
+1-NA):: DISPLAY AT(24,21):U 
SING "#####.##'* :sxei 
940 GOTO 850 
950 CALL CLEAR 

960 SSE,SSA,DIF,SXE,SXA, DIX = 
O 

970 ON ERROR 1000 
980 IF NA< >NZ THEN 990 :: DI 
SPLAY AT(1,4):"AUSWERTUNG MO 
NAT" :: DISPLAY AT(1,23):M0N 
<£(M0-1):: GOTO 1000 
990 DISPLAY AT(1 , 1):"AUSWERT 
UNG VON " ;MON*(NA) ; " BIS "j M 
QN*(NZ) 

lOOO DISPLAY AT(4,1):"MON... 

.EINNA...AUSGA....DIFF" 

1010 CALL HCHAR(5,3,125,28) 
1020 RESTORE 1630 *.: FOR MM = 
1 TO 12 : : READ MONATE : : DI 
SPLAY AT(MM+6,1):MONATE 
1030 SSE=SSE+SE(MM):: SSA=SS 
A+SU(MM):: DIF=SE(MM)-SU(MM) 
1040 DISPLAY AT(MM+6,8):USIN 
g "#####":se(MM):: Display a 
T(MM+6,16):USING "#####":SU( 
MM) 

1050 DISPLAY AT(MM+6,24):USI 
NG "#####":DIF 
1060 NEXT MM 

1070 CALL HCHAR(20,3,125,28) 
1080 DISPLAY AT(22,1):"SUM" 

:: DISPLAY AT(22,7):USING "# 
#####":sse :: Display at(22, 
15):using "######":ssa :: di 
SPLAY AT(22,24):USING "##### 

":SSE-SSA 

1090 DISPLAY AT(24,1)S"1/"fcS 
TR*(NZ+l-NA):: DISPLAY AT(24 
,7)*.USING "######" : SSE / (NZ+1 
-NA):: DISPLAY AT(24,15):USI 
NG "######":SSA/(NZ+l-NA) 
llOO DISPLAY AT(24,24):USING 
»#####”:(SSE-SSA)/(NZ+l-NA) 
lllO CALL KEY(0,K,STATUS) : : 
IF STATUS=0 THEN 1110 :: GOT 
O 370 

1120 CALL CLEAR :: END 
1130 ! AUSDRUCKEN ********** 

& 

1140 OPEN #20:"PIO.LF" 
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1150 PRINT #20:CHRS(27)}CHR* 
(64)}:: PRINT #20:CHR*(27) } " 

1";CHR*(3)} 

1160 PRINT #20:CHR*(14)}"JAH 
RESÜBERSICHT. .1984": : : : : 

1170 PRINT #20:CHR$(14)!"AUS 
gaben": : : : 

1180 IMAGE ####### 

1190 IMAGE ######### 

1200 PRINT #20:CHR$(27) } "~ ” 5 
CHR$(l)i 

1210 PRINT #20 : "MONAT. ..HAUS 
H..MIETE..EINRI..KLEID...AUT 
O..VERSI..AUSGE..CASIN..TELE 
F..URLAU" *.: PRINT #20:CHRS( 
27)}"-"iCHRS(O)} 

1220 RESTORE 1630 :: PRINT # 

20 

1230 FÜR M=1 TO 12 :: READ M 
0N$(M):: NEXT M 

1240 FOR MM=NA TO NZ :: PRIN 
t # 20 :mon$(MM): for 
A=1 TO IO :: PRINT #20,USING 
1180:SB(MM,A);:: SAU(A)=SAU 
(A)+SB(MM,A) 

1250 NEXT A :: PRINT #20 :: 
NEXT MM 

1260 PRINT #20 :: PRINT #20: 
"SUMME "}:: FOR A=i TO io :: 

PRINT #20,USING 1180:SAU(A) 

;:: NEXT A 

1270 PRINT #20:"SCHN. “ } : : F 

OR A=1 TO 10 :: PRINT #20,US 
ING 1180:SAU(A)/(NZ+l-NA);:: 

. NEXT a :: PRINT #20:"“:"":" 

H 

1280 PRINT #20:CHR*(27) } } 

CHR*(1)} 

1290 PRINT #20: “MONAT. ..RADI 

O. . .ZEIT. .COMPU. .SCHAI_UIDE 

O..W.BIL..LOTTO..KREDT..ÜBER 

w.. sonst" :: print #20:chr*( 

27)}"5CHRS(O)} 

1300 RESTORE 1630 :: PRINT # 
20 

1310 FOR M= 1 TO 12 :: READ M 
ON$(M):: NEXT M 

1320 FOR MM=NA TO NZ :: PRIN 
T #20:mon$(MM)}" FOR 

A=11 TO 20 :: PRINT #20,USIN 
G l180:SB(MM,A);:: SAU(A)=SA 
U(A)+SB(MM,A) 

1330 NEXT A :: PRINT #20 :: 
NEXT MM 



1340 PRINT #20 :: PRINT #20: 
"SUMME "}:: FOR A=11 TO 20 : 

: PRINT #20,USING 1180:SAU(A 

);:: next A 

1350 PRINT #20:”SCHN. F 

OR A=11 TO 20 :: PRINT #20,U 
SING 1180:SAU(A)/(NZ+l-NA);: 

: next a :: print # 20 : hh : n ": 

n 11 • n 11 • »1 11 
• • 

1360 IF (NZ+l-NA)>10 THEN PR 
INT #20:CHR$(12)} 

1370 PRINT #20:CHR*(14)}"EIN 
NAHMEN": : : : 

1380 PRINT #20:CHR$(27) } "-" } 

CHR$(1)} 

1390 PRINT #20:"MONAT...GEHA 

LT .... TR-GE. .. .VERSI.ZIN 

S. . . .GUTSC....VERKA.... LOTTO 
....sonst" :: PRINT #20:CHR* 

(27)}"-"5CHR*(O); 

1400 PRINT #20 

1410 FOR MM=NA TO NZ :: PRIN 
t # 20 :mon$(MM);".."}:: for i 
=1 TO 8 :: PRINT #20,USING 1 
190:sz(MM,I)}:: SEI(I)=SEI(I 
)+SZ(MM,I) 

1420 NEXT I :: PRINT #20 :: 

NEXT MM 

1430 PRINT #20 :: PRINT #20: 
"SUMME"}:: FOR 1=1 TO 8 :: P 
RINT #20,USING 1190:SEI(I)}: 

: NEXT I 

1440 PRINT #20:"SCHN.";:: FO 
R 1=1 TO 8 :: PRINT #20,USIN 
G 1190:SEI(I)/(NZ+l-NA)}:: N 
EXT i :: PRINT #20:: 

•I II 0 H II 

0 

1450 IF (NZ+l-NA)< 5 0R(NZ+1- 

NA)>10 THEN 1470 

1460 PRINT #20:CHR*(12)} 

1470 PRINT #20:CHR^(14)}"GES 
AMT-ÜBERSICHT": : : : 

1480 PRINT #20:CHR*(27)}"-"} 
CHR$(1)} 

1490 PRINT #20:“MONAT. 

.EINNAHMEN.AUS 

GABEN.DIFFERENZ" :: 

PRINT #20:CHR$(27);"-"}CHR$( 

O) } 

1500 PRINT #20 

1510 FOR MM=NA TO NZ :: PRIN 
T #20:MONS(MM)}:: PRINT #20: 
RPT*(" ",15)}:: PRINT #20,US 
ING 1190:SE(MM)}:: PRINT #20 
:RPT ^(» «,9)}:: GEI=GEI+SE(M M) 2 
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1520 PRINT #20,USING 1190:SU 

(MM);:: print #20:rpts(" •* ,9 
);:: gau=gau+su(MM) 

1530 PRINT 4420 , US ING 1190:SE 
(MM)-SU(MM):: NEXT mm :: PRI 
NT #20 

1540 PRINT # 20 : "SUMME": PR 
int #20:rpt*(" ",i3);:: prin 
T #20 5 USING 1190:GEIJ 
1550 PRINT #20:RPT$r ",9);: 

: PRINT #20 , US ING H90:GAU;: 

: print #20:rpt$<" " ,9); 

1560 PRINT #20,USING 1190:GE 
I -GAU 

1570 PRINT # 20 :"SCHN.";:: PR 
int #20:rpt«(" ",13);:: prin 
T #20,USING 1190:GEI/(NZ+l-N 
A) ; 

1580 PRINT #20:rpt*(" ",9);: 

: PRINT #20,USING 1190:GAU/( 
nz+i-na);:: print #20:rpt$(" 

", 9 ) ; 

1590 PRINT #20,USING 1190:(G 
EI-GAU)/(NZ+l-NA) 

1600 PRINT #20:CHR$(12); 

1610 PRINT #20:CHR*(27);CHR* 
(64);:: CLOSE #20 
1620 RUN 

1630 DATA JAN,FEB,MAR,APR,MA 
Y,JUN,JUL,AUG,SEP,OCT,NGV,DE 
C 

HAUS/JA 


Haus/Ja ist die Erweiterung des Programmes Haus/ 
Mo. Mit diesem Programm können Sie die abge¬ 
schlossenen Monatsdateien aus Programm Haus/Mo 
einiesen und auswerten. Zuerst müssen Sie jedoch 
das Programm Haus/Gen laden, welches Ihnen die 
für dieses Programm erforderlichen Dateien eröff¬ 
net. Danach Haus/Gen wieder löschen und Haus/Ja 
laden. Jetzt haben Sie die Auswahl, ob Sie einen 
Monat, mehrere Monate oder das gesamte Jahr aus¬ 
gewertet haben wollen. Der Computer holt sich nun 
die für die Auswertung erforderlichen Dateien und 
gibt Ihnen in Tabellenform eine genaue Aufstellung 
Ihrer Geldbewegungen für den gewünschten Zeit¬ 
raum, sowie den monatlichen Durchschnitt. Die 
Auswertung kann sowohl für einzelne Posten, als 
auch für die monatlichen Gesamtsummen gewählt 
werden. Alfred. Nitschke 

HAUS/GEN 

Haus/Gen eröffnet die für das Programm Haus/Gen 
erforderlichen Dateien. 

Bevor Sie das Programm Haus/Gen benutzen, bitte 
zuerst dieses Programm laden. Der Computer infor¬ 
miert Sie über den Bildschirm, welche Datei er ge¬ 
rade eröffnet. Sind alle Dateien eröffnet, ist dieses 
Programm wieder aus dem Speicher zu löschen 
und Programm Haus/Ja zu laden. Danach können 
Sie mit der Auswertung, wie in Programm Haus/Ja 
beschrieben, beginnen. Alfred Nitschke 


TI-PRIM 

Dieses Programm können Sie zur Ermittlung der 
Primzahlen zwischen 1 und einer beliebigen Zahl 
unterhalb von 1000 verwenden. Die Höchstgrenze 
von 1000 ist deshalb gewählt, weil der Computer 
die zu untersuchenden Zahlen zuvor in eine Tabelle 
einliest. Bei höherer Dimensionierung würde das 
System abstürzen. Nach Start des Programmes gibt 
der Computer in der Kopfzeile den Anfangswert 
‘1* aus und Sie wählen nun die gewünschte Höchst¬ 
grenze. Nach bBeendigung des Rechenvorganges er¬ 
scheint in der Kopfzeile die Menge der gefundenen 
Primzahlen. Kurz darauf werden die Primzahlen in 
Tabellenform ausgegeben. Sollte der Computer 
mehr als 48 Zahlen gefunden haben, unterbricht er 
die Ausgabe nach der 48. Zahl, da der vorhandene 
Bildschirmplatz jetzt gefüllt ist. Durch Betätigen 
von ENTER werden diese Primzahlen gelöscht und 
die nächsten 48er Folge ausgegeben. 

Am Ende des Programmes können Sie wählen, ob 
Sie das Programm verlassen wollen oder eine neue 
Tabelle wünschen. Geben Sie hierzu ein ‘J’ ein. 

Hartmut König 
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130 

140 
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160 
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210 

220 
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270 

280 

290 
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********************** 


* 

* 
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********************** 


DIM HK(1000) 

ON WARNING NEXT :: ON BR 
EAK NEXT 

310 CALL CHAR(95,"OOOOOOFFFF 
"):: CALL SCREEN(5):: FOR i= 

1 TO 12 :: CALL C0L0R(I,2,8) 
:: next i :: call color(14,5 
,5) 

320 CALL CLEAR :: DISPLAY AT 
(3,9):"PRIMZAHLEN" :: DISPLA 

Y at <4,9) : "_" : : di 

SPLAY AT(7,2):"ANFANGSWERT M 
ENGE ENDWERT” 

330 DISPLAY AT<8,2):"_. 


AY AT <10,6) : "01 


DISPL 

00 
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340 ACCEPT AT(IO,22)VALIDATE 
(Digit):B :: Display at(12,6 
):"MOMENT BITTE..." :: FOR I 
= 1 TO b :: hk <i)—i :: next i 

350 FÜR 1=2 TO INT(SGR(B)):: 

IF HK(I)=0 THEN 370 
360 FOR K—1*2 TO B STEP I :: 

HK(K)=0 :: NEXT K 
370 NEXT I 

380 j =0 : : for N= l to B : : i 

F HK(N)< >0 THEN J = J + 1 

390 NEXT N :: DISPLAY AT(10, 

14 ; SI2E (-3) : USING 

400 ! *T ABELLE VERDICHTEN* 

410 L=l :: FOR K=l TO B :: I 
F HK(K)=0 THEN 420 ELSE HK(L 
)=HK (K):: L=L+1 

420 NEXT K 

430 2=12 :: SP=2 :: für n=i 
TO J :: DISPLAY AT(Z,SP):USI 
ng "$*##": HK (N) : : sp=sp + 4 :: 

IF SP >26. THEN SP = 2 :: 2 = Z + 2 

440 IF Z =22 AND SP >25 THEN 4 
50 ELSE 460 

450 DISPLAY ATT 24,5) : "WEITER 
NIT <ENTER>“ :: CALL KEY(O 
,K,S):: IF s=0 THEN 450 ELSE 
z= l2 :: SP=2 :: call hchar( 

12,1,32,416) 

460 NEXT N 

470 DISPLAY AT(24,7):“NOCHMA 
L ?J" :: ACCEPT AT < 24, 16)SIZ 

E(-1)VALIDATE("JNjn"):AN« :: 

IF AN*= ,, J" OR AN*= ,, j" THEN 
320 ELSE CALL CLEAR :: STOP 

WIR BIETEN IHNEN AN: 

GENIE 16, 128 KB RAM, 2 DISKETTENLAUF¬ 
WERKE, TEXTVERARBEITUNG, KALKULA¬ 
TION, DATEIVERWALTUNG, 8086 PROZES¬ 
SOR, VOLL IBM-KOMPATIBEL 

NUR DM 5.900,— 
OLIVETTI M 20 AB DM 5.600,— 

PAKET FÜR M20: LOHN, FAKTURA, FINANZ¬ 
BUCHHALTUNG NUR DM 2.400 — 

COMMODORE 64, TI 99/4A, SPECTRUM, 
SCHNEIDER CPC 464, APPLE-KOMPATIBLE 
UND ANDERE SYSTEME AUF ANFRAGE. 

ÜBER 2000 VERSCHIEDENE PROGRAMME! 
HOLLENDUNG COMPUTING 
VIERSENERSTR. 66, 4050 MÖNCHENGLAD¬ 
BACH 1, TEL. 02161/86146 

BERATUNG - VERTRIEB — SCHULUNG — 
PROGRAMMENTWICKLUNG — LITERATUR — 
COMPUTERWERBUNG — HOMECOMPUTER — 
LITERATUR — ZUBEHÖR — REPARATUR 



Der TI 99/4A 

weiter auf dem Vormarsch 

Viele interessante Neuheiten — vieles sofort lieferbar. 

Immer, wenn Sie Ihren TI 99 / 4 A leistungsfähiger und vielseitiger 
machen wollen — greifen Sie zu. Bauen Sie Ihre Damast-Datenbank 
aus. 

NEU aus USA 

Disketten-Laufwerk 

Intern, doppelseitig. Slimline mit halbem Stromverbrauch. Zum pro¬ 
blemlosen Einbau zweier Laufwerke in die Peripherie-Box. Komplett 
mit Kabelsatz. Je Laufwerk DM 798,- 

Externe Kombination 

Verzichten Sie auf riesige Boxen. Ein Minigehäuse, ganze 13.7 x 14 
x 6.3 cm klein, bietet Ihnen wahlweise: 

• 3 Schnittstellen extern (1 x Parallel und 2 x V 24). Bus nicht durch- 

gefuhrt. nachträglich komplett aufrüstbar DM 498,- 

oder noch besser für Sie: 

• zusätzlich mit externem, einseitigem Laufwerk 180 KB. komplett 
anschlußfertig, mit 32 K RAM Speichererweiterung. Disketten- 
Controller für’doppelseitige und doppelte dichte Laufwerke 

DM 2.198,- 

• dto.. jedoch mit zweiseitigem Laufwerk 360 KB DM 2.498,- 
Modul-Expander 

Erspart durch einfaches Umschalten das Umstecken der Module. 
schont den am meisten strapazierten Teil der Konsole: den Modul- 
Emschubschacnt. 

• 3fach. zum Einschieben in den Schacht, aus den USA. sofort 

lieferbar DM128,— 

• 8fach. ..Made m Germany" binnen 2 Wochen lieferbar DM 198,- 

Grafik-Tablett Super-Sketch 

Sie zeichnen das Bild auf das Tablett. Super-Sketch übertragt die 
Grafik sofort und unmittelbar auf den Bildschirm. 

Binnen 2 Wochen lieferbar DM 248,- 

In Kürze lieferbar: 

RGB-Modulator. AD/DA-Wandler 

Programmiersprachen 

• Extended Basic Modul Original TI DM 278,- 

• Mini Memory 4K CMOS-RAM-Modul DM 278,— 

• Editor Assembler Paket DM178,— 

• TEX-FORTH-Diskette für das Editor Assembler Modul. Kann 64 

Zeichen auf dem Bildschirm darstellen. Mit englischem Hand¬ 
buch. Sofort lieferbar. DM 98,- 

• dto.. jedoch mit englischem und deutschem Handbuch. Keine 

Übersetzung! Echt neu für den TI 99 / 4 A geschrieben. Anfang 
November lieferbar DM 198,- 

• Ex-Basic Compiler für das Extended Basic Modul. (Benötigt die 
32 K RAM Speichererweiterung.) 

Voraussichtlich Anfang Dezember lieferbar. DM 248,- 

• Pascal-System T-Code-Karte mit Disketten und Manual 

DM 998,- 

Wichtige Software-News Module aus USA 

Als größter deutscher a p e so f t-Händler liefern wir - auch Neuheiten 
- ständig ab Lager. 

apesoft-Graphik-Software 

Expanded Grafic Basic. Kassette DM 150,— 

dto.. Diskette DM150,- 

Tl Grafic Plotter. Diskette DM 150,- 

Bit Map Mode Grafic Generator/ Interpreter. Diskette DM 150,- 

Software Extended Basic / 32 K RAM 

Grafic Master. Diskette DM 99 » — 

Vollintegrierte Hardcopy-Routine dazu DM 30,- 

3-D-World. Diskette DM 

Vollintegrierte Hardcopy-Routine dazu DM 30,- 

Bücherneuheit 

16-Bit-Mikrocomputer: Einführung. Daten. Eigenschaften. Anwen¬ 
dung. Vergleich TMX 9900-INTEL 8086 - Z 8000 - Motorola MC 
68000. Sofort lieferbar. DM 29,80 


Super Sonderangebot: 

DISKY 5.25" 1 D. 40 Spuren einzeln geprüft. DM 5,50 

Spielmodule neu aus USA 

zwischen DM 89,— und DM 98,— 

Fordern Sie bitte unbedingt unsere ausführliche Preisliste an. Rufen 
Sie uns an oder schreiben Sie uns - solange es noch was zu holen 
gibt! 


DM 89,- und DM 98,- 


Das Computer-Hüsli • Münchner Straße 48 
8025 Unterhaching ■ Telefon: 0 89 / 61 90 48 





BÖRSE 


TI GRAFIK ADVEN- 
TURE Generator Set 15 
DM Info und Liste gegen 
Rückporto bei Thomas 
Schröter, Mönchgraben 
26, 4 Düsseldorf 13 

VERK. Expansions-Box 
mit Karte für Box, Con¬ 
troller-Karte, Laufwerk, 
Disk-Manager 2 — Modul, 
19 Disketten mit Spit¬ 
zenprogramm. Module: 
Parsec, Schach, Speech¬ 
editor, early leaming ... 
etc. Sprachsynthesizer, 
Literatur, Prog. für Disk 
und gute x Basic. Pro¬ 
gramme gegen Angebot 
zusammen oder einzeln. 
Klaus Versin, Heerstr. 377 
5014 Kerpen-Brüggen. 

R+B SOFT/R+B SOFT/ 
R+B SOFT Ilex Dezimal 
Umrech. Spreit-Edt Tele¬ 
fon-Datei mit schnellst- 
mög. Cass-Speich / je 12 
DM + NN / Wir erstellen 
für Sie Programme und 
geben Tips / Tel.: 04936/ 
64 76 / 29 87 Grossheide 
1, Kiebitzweg 4. 

.g^._ 

COUPON 


2 Zeilen 
4 Zeilen 
6 Zeilen 
8 Zeilen 
10 Zeilen 


3,00 DM 
6,00 DM 
9,00 DM 
12,00 DM 
15,00 DM 


TI REVUE 
Anzeigenabtlg. 
Postfach 1107 
8044 Lohhof 


TAUSCHE TI-Module 
Advent. + 10 Kass. + Par¬ 
sec + Statistik + Rechen- 
künst. gegen RS 232 Kar¬ 
te oer anderes auch ein¬ 
zeln. Tel. 06408/76 50 
-20 -22 Uhr. 

SUCHE für TI 99/4A 
EX-Basic + DSK 1 + 32 
K) Programm f. Hausver- 
w. + Nebenkostenab- 
rechn. Angebot an G. Ko- 
sel, 6057 Dietzenbach, 
Rotdomweg 22 


TI 99/4A: Tausche Mo¬ 
dul „Buck-Rogers“ Neu- 
pr. 149 DM gegen Adven- 
tur-Modul + Spiele oder 
gegen gleichw. Module! 
Angeb. an Frank Kapp- 
ler, Robert-Kochstr. 27, 
6652 Bexbach 

SUCHE für TI 99/4A Ext. 
Basic RS 232 Disketten¬ 
laufwerk und Drucker. 
Kurt Meier, Delsenbach- 
weg 38,8500 Nümberg90 
Tel. 0911/39 63 30 ab 
17.00 Uhr 


SUCHE für TI 99/4A In¬ 
terface zum Druckeran¬ 
schluß (Seikosha GP-100 
A Mark II. (ggf. auch 
beide Teile zusammen.) 
Lothar Best, Lessingstr. 
34, 6473 Cedem 1, Tel. 
06045/12 79 

TI 99/4A suche User im 
Raum Euskirchen-Rhein- 
bach-Mechemich. Ich 
möchte Assembler lernen 
u. Basic vertiefen. Suche 
32 K erw. R. Breuer, 
Schmuckstr. 6, 5358 Bad 
Muenstereifel-Soller 
02257/571 nach 18.00 

TI 99/4A Software TI - 
und Extended Basic. An¬ 
wenderprogramme und 
Spiele. Info gegen Rück¬ 
porto bei: JHC-Software; 
Chattenstr. 28, 6331 Kat- 
zenfurt. 

VERK. BÜCHER mit 
Progr. z.B. Superspiele 
F.D. TI usw. Schallpl.- 
Archiv, Basic F. Anfän¬ 
ger, alles gebr. Alles halb. 
Pr. 06638/15 03 


STATIK-PROGRAMME 
FÜR TI 99/4A Kehlbal¬ 
kendach, Fach werk, Stab- 
werk Durchlaufträger mit 
Bemessung kreuzw. bew. 
Platten bei. Belastung alle 
Programme mit Textver- 
arb. Ing.-Büro B. Rath 
4790 Paderborn, Milch- 
str. 1 

VERKAUFE: Origin. 

Module (Videospiele I+II, 
CAR Wars, Fittness-Trai- 
ner) a 40 DM & Orig. 
Kassetten (Finanzberater, 
Basic-XBasiskurs) a 15 
DM. Tel. 06471/528 93 

TI 99/4A 250,- X-Basic 
250,— 32 Kram zum ein¬ 
bauen in die Konsole 
600,— Dat. u. anal. 115,— 
Dat. u. Text 115,— Stati¬ 
stik 70,— Viele Mod. 
Bocher Tel. Zang 040/ 
722 55 01 84 ab 17 Uhr 
650 10 74 

TI 99/4A — biete Schach 
Modul 80 DM Basic Kurs 
15 DM Ex. Basic Kurs 
15,- DM. Tel. 06262/ 
29 16 


Die große Börse für jeden Zweck in TI REVUE. Wenn Sie etwas suchen, etwas verkaufen 
oder tauschen wollen, Kontakte wünschen oder, oder, oder, dann ist TI REVUE die richtige 
Zeitschrift für Sie. Zum sagenhaften Kennenlern-Preis von DM 1,50 pro Zeile! Einfach aus¬ 
füllen, ausschneiden und zusammen mit einem Verrechnungsscheck über die entsprechende 
Summe (oder in Briefmarken) absenden an 



() Bitte hier ankreuzen, wenn die Anzeige unter Chiffre erscheinen soll. Chiffre-Gebühr 
10 DM. 

Hiermit bestelle ich obige Kleinanzeige. Einen Verrechnungsscheck über DM_ 

habe ich beigelegt. Mir ist bekannt, daß Anzeigenaufträge ohne ausgefüllten und unter¬ 
schriebenen Verrechnungsscheck nicht bearbeitet werden. 

Name-- Vorname_ 

Strasse- (PLZ) Ort_ 

50 





BÖRSE 


TI 99/4A + Ext. Basic 
+ EP 22 + V24 Int. + 
Rec. + Kabel + Div. Bü¬ 
cher + 50 Kass. + Joyst. 
Adapter + Color-TV + Je¬ 
de Menge Softw. F. VHB 
1850,—. Arno Zimmer¬ 
mann, PF. 122, 6087 
Büttelbom 1 

VERK. TI 99/4A + Ex. 
Basic + Handb. + Rec. 
+ Kabel + Joyst + Litt 
Basic + Ex Basic Lern- 
cass + Progr / 9 Mon. alt. 
EP 800 DM / Ii. Rvll, 
Tel. 02359/77 76 

TI 99/4A - X - Bas. 
Modul 150,— Datenverw. 
+ Analyse 50,— Beg. 
Grammar 30,— Ext. Cen¬ 
tronics Interface direkt 
an Konsole 150,— (z.B. 
Seik. GP - 80 A) Mattel 
Intellivision mit 6 Spicl- 
kas. 200,—Buchungsjour¬ 
nal DM 190,— minus Mis¬ 
sion DM 25,— Bernhardt, 
Domb. Sande R 133, 
506 Berg. Gladba. 
02202/381 00 

TI — 99/4A: Suche gut 
erhaltenen Drucker mit 
Schnittstelle sowie Peri- 
Box und Diskettenlauf¬ 
werk: Wolfg. Schmitz, 
(02101/49 54 41) 

SUCHE Briefkontakt zu 
TI-Besitzem im Raume 
Ruhrgebiet zwecks Erfah¬ 
rungsaustausches. 

G. Michel, Duissemstr. 
33, 4100 Duisburg. Tel. 
0203/33 32 34 

PHP 1900 THERMO¬ 
DRUCKER zu verkaufen 
1 Monat alt VB 700,— 
DM direkt an Konsole an- 
schließbar NP. 1400, 30 
Zeichen / S.A. Krause, 
Laute rbacherstr. 11, 
6-FFM 61,069/41 16 77 

DRUCKE Ihre Listings 
von Diskette oder Casset- 
te. TI-Basis/Ext. Basic 
100 DM + NH oder 100 
DM-Schein +2,50 Brief¬ 
marke. Peter Voigt, Bres- 
lauerstr. 20, 4060 Vier¬ 
sen 11 


SUCHE TI Extended BA¬ 
SIC Tel. 0531/892 66 22 

EXT. SPITZENSPIEL! 
endlich eins wie in der 
Hölle bei begrü. Nichtge¬ 
fallen Geld zurück!! best, 
kein Schrott. Cass. für 
20 DM bei Gripp, Gustav- 
Poensgen 33, 4-Düsseldorf 

TI 99/4A PROGRAMME 
Info gegen 2 DM in Brief¬ 
marken Andreas Schmidt 
am Storchenbaum 9, 
6793 Bruchmühlbach- 
Miesau 

SUCHE externe RS 232 
Box für TI 99/4A ab 18 
Uhr Tel. 040/81 23 16 

TI 99/4A EXT. B. RS 
232 Speech, Progs. Lit. 
NP. 1500,- VB 950,- 
Tel. 09133/12 29 

FAWCETT-SOFTWARE 
präsentiert Englische Pro¬ 
gramme in deutsch. Liste 
an fordern. Martin Zed- 
dies, Ligusterweg 3, 3180 
Wolfsburg 11 

SUCHE DT. BEDIE¬ 
NUNGSANLEITUNG für 
Epsondrucker MX 80 
Typ 1. Eine Kopie ist 
auch erwünscht. H.J. Bik- 
kel, Vockrathserstr. 50, 
4040 Neuss 22, 02101/ 
84620 ab 17.00 Uhr 

US TI 44/4A zu verkau¬ 
fen incl. Handbücher und 
Lektionscass. engl. Ange¬ 
bot an 06021/601 16. 
Versand nur gegen NN 
oder V-Scheck 

TI - 99/4A: Verk. PRG. 
Routinen + Lagerverwalt, 
zus. DM 195,— auch ein¬ 
zeln Tel. 0251/664 84 

VERKAUFE TI 99/4A + 
Ext. Basic + Cassettenrec.- 
Kabel (Orig. TI) + TI 
Bücher (TI PS & Tricks, 
Handbuch TI/Ex. Basic 
Etc.) Für 550,- DM. 
Tel. 0821/227 41/Abend 


SUCHE Kontakt mit TI 
Besitzern in Augsburg, 
Jörg Storm, Christlesee- 
weg34,Tel. 0821/638 57 

SUCHE Disassembler, 
Speicheradressen von 
Konsolenroutinen, Pro¬ 
grammtausch und Erfah¬ 
rungstausch mit Assemb¬ 
lerfans. M. Humbert, Sa¬ 
phirring 30, 3008 Garb¬ 
sen 1. 

ACHTUNG! Gelegenheit: 
Große Menge origin. ver¬ 
packte Adventure-Games 
+ Modulc v. Texas verk. 
nur Tel! ab 16 Uhr 0841/ 
4 40 00. Achtung 

SUCHE: Terminal Emu¬ 
lator II RS 232 extern, 
Konsolcnschaltungsuntcr- 
Iagen, A/D Interface. 

Dirk Fortmann, Werther- 
str., 4448 Bielefeld 1, 
Tel. 12 38 71 

SUCHE für TI-99 ver¬ 
schiedene Hardware wie 
Laufwerke, Module, Mi¬ 
ni-Memory, Peri-Box, 32 
K-Karte usw. auch ge¬ 
braucht od. defekt. Su¬ 
che auch gute Software. 
Maier Heinz, Hauptstr. 
24, 8077 Reichertshofen 
2, Tel. ab 16.15 Uhr 
08453/25 85. 

ACHTUNG! Verkaufe 
verschiedene Module (z.B. 
Munch Man) für 40,— 
DM das Stück. Verkaufe 
E-PROMS 2716 

solange Vorrat reicht für 
6,—. SUCHE deutsches 
Handbuch für Mini Me¬ 
mory, Diskkontroller ex¬ 
tern sowie Speichererwei¬ 
terung extern. Reinhard 
Weinhold, Vor dem Buch¬ 
wald 8. Tel. 06426/7716 
nach 17.00 Uhr. 

VERK. neuwert. TI 99/ 
4A Module Munch-Man: 
70,—/Yatzee: 30, Alle 4 
Module 140,— ... Suche 
Mini Memory. Andreas 
Braun, Ebereschenweg 1, 
5107 Simmerath. 


TI99/4A+EXT. BASIC 
BESITZER Ich tausche 
oder verkaufe eine Aus¬ 
wahl von 18 Programmen 
aus meiner Sammlung. 
Alles in Ext. Basic ge¬ 
schrieben und alles her¬ 
vorragende Grafiken und 
Ideen. 

Ruf mich an — meistens 
bin ich erst abends zu er¬ 
reichen: H. Dirks, Tel. 
0241 - 87 22 05 

SUCHE defekte Joy¬ 
sticks und Kontakte für 
TI-99/4A. Klaus Schau, 
Roderbruchstr. 32, 3 

Hannover 51 

FORTH-Assemblerli- 
stings für alle wichtigen 
Micro-Prozessoren je 25 
DM: Installation-Manual 
25 DM Autolinker u. 
Buchhaltung f. Appel 11 
kostenl. Info anf. bei B. 
Lipgens-Datentechnik, 
Wilbrechtstr. 65, 8000 
München 71 

VERKAUFE Original TI- 
Laufwerk PHP 1250 zum 
Einbau in Peri-Box, 1 
Jahr alt, wenig gelaufen. 
VH 450,—. Suche Kon¬ 
takte zu anderen TI-99 
Anwendern im süddeut¬ 
schen Raum sowie Usern 
mit Akustikkopplern. Te¬ 
lefon 07161/3 15 21. 

Wer im Raum LÜNE¬ 
BURG hat Interesse an 
einem TI-CLUB Jörg 
Podlinksi, Grenzstr. 6, 
2120 Lüneburg / 04131- 
5 5457 

HYPER OLYMPIC und 
230 weitere Spiele in TI 
u. X-Basic. Info 1 DM 
bei Frajo Frey, Bergknap- 
penstr. 178, 4350 Reck¬ 
linghausen. 

TI 994 A - 1 PAAR 
UNGEBR. Joysticks 
VHB 40 DM, C 64 Suche 
immer noch Programme 
und evtl. Gebr. Floppy 
xxx C 64 Programm¬ 
tausch. Reiner Keller, 1 
BLN 26, Quickb. Str. 91 


51 




in verschiedenen Versionen lieferbar! 


Wir führen das 


Original Tl-Produkte • Fremdanbieter für TI 99/4A • Importartikel für TI 99/4A 

wäre: Umfangreiches Angebot für Texas Instruments v A tari-s P ieie ti 

, Disklaufw., Contr. ^e°' 

:rw.+10 Disk. 1698- TI 99/4A Assembler - Hardware Z 


Hardware: UmtQ 

TI-Box, Disklaufw., Contr. 

32 K-Erw.+lO Disk. 1698,- 

32 K-Erw. extern 428,- 

Druckerinterface extern 348,- 
Drucker GP 50 + Kabel + 


798,- 

1198,- 

1448,- 

1990,- 

248,- 

348,- 

75,- 


Druckerinterface extern 
dito mit GP 550 
dito mit EPSON RX 80 
dito mit EPSON FX 80 
Graphik Tableau 
Sprachsteuereinheit 
joyst. zweifach 

Mini Memory 295/— 
Terminal Emulator 99,- 


## IDIiDJ 

128 K - Karte intern 998,- 

USCD-PASCAL 4.0 

P-Code Karte, Comp-, Linker Editor 1398,- 
Trackball für TI 99 225,- 

Basic Compiler Disk. 248,- 

Basic Combiler für M M. 98,- 

Assembler Lernkurs dt. von IDA Diskette 
oder Cas. 98,- 


Software: 

Editor Assembler 1 89,- 
Extendet Basic orig. 295,- 
orig. dito dt.Nachb.248,- 


Parsec 

Alpiner 

Tunnels of Doom 
Adventure Modul 
Tl-logo II dt. 
Tl-Writer 
Mathematik I 
Car Wars 
Munch Man 
Tomstone City 

—SHARP— 


MZ 731. Personal-Computer. 64 kB-ftAM 
inkl. Kassettenrekorder. Farbgrafik- 
Drucker. eingebauter HF-Modulator 
und RGB-Anschluß 

1190,- 

SFD 700 - Floppy für MZ-700 mit 
280 KB 

1390,- 


79,- 

79,- 

79,- 

79,- 

320,- 

320,- 

99,- 

39,- 

79,- 

39,- 


US-Spiele: 

Moon Mine, Sewermania, 
Bigfoot, Meteor Belt, 
M*A*S*H, Microsurgion, 
Demon Attack, Hopper, 
Star Treck, Jawbreaker II, 
Slymoids, Munchmobile, 
Moonsweeper, Baseball*, 
Terry Turtle's Adventure*, 
Tathom je Modul 49,- 
* Sprachsteuereinheit 
notwendig!!! 


Brother, Silver Reed, Seikosha, HP, 
3 M Scotch, Apple, Sianyo, 
Commodore, Atari 

Zubehör: 

Monitore, Disketten, Drucker- 
butter, Disketten-Organisation, 
Computer-Möbel, Papier 


' v Atari-Spiele TI 99: 

Assembler - Hardware Zusatz 
für TI 99 (nur Extendet-Basic 
notwendig) 149,- 
Defender, Donkey Kong, 
DIG-DUG, Moon Patrol, 
Pac Man, Pool Position 
Jungle Hunt je Modul 99,- 

Sonstiges: 

Flugsimulation 49,- 

Staubschutzhaube aus 
Kunstleder 29,- 

und, und, und, und! 

Graphik Tableau für 

TI 99 = 248,- 

fürVC 64 = 248,- 


Abd eck ha üben 

Kunstleder mit Leinen 

für TI 99/4A. CBM 64, 29 90 

Atari 600. MZ 700 
FX 80 39,90 QX 10 99,00 

Sonderanfertigungen kein Problem! 


Preise Stand 1.11.84 Alle Preise incl. MwSt. - Preisliste onfordern! • Lieferung erfolgt per NN oder gegen Verrechnungsscheck. 

Bestellungen über DM 500 - werden frei Haus geliefert, unter DM 500,- werden DM 5,- Versandpauschale berechnet. 
RADIX Bürotechnik ■ Bornstroße 4 + Heinrich-Barth-Straße 13 • 2000 Hamburg 13 - Telefon 040/441695 • Telex 21 36 82 RADIX 

Händler-Anfragen erwünscht 


Drucker 

Seikosha, Itoh 

Typenraddrucker und Typenrad - SM 
Brother, Olivetti, Itoh 

EPSON 

RX 80. RX 80 F/T, FX 80, Fx 100 
anschlußferlig an 

Commodore 64 TI 99/4A 
SHARP MZ 700 • APPLE 


RADIX 

Bürotechnik 

Handelsgesellschaft mbH 
BomstraBe 4 • 2000 Hamburg 13 
Tel. 040/4416 95 • Telex 21 36 82 radix d 
tägl. 10.00-12.30 -I-13.30-18.30 Uhr 
Sa. 10.00-13.00 Uhr 


OLIVETTI MIO 


Olivetti-Händler 


Unser Profi-System 
Epson QX-10 
Bürocomputer [l^ 


16 BIT-Karte und 
anderes Zubehör 
auf Anfrage 


PC 1500 +CE 150 625- 


PC100C 199,- 
Tl 66 135,- 

TI30LCD 32,50 


TI 59 - Zubehör 

Module (z. B. Statistik, Math., Luftfahrt, 
Seefahrt, Vermessung ed.) 
Batteriepakete, Netzteil, Magnetkarten 


-^p Tl-Professional 


RADIX 64 * 


Achtung! 


100% Apple® kompatibel 


64 KB RAM, CPU 6502 & Z 80 A 
SHUGARD 390 A Floppy 
6 Monate Garantie 
Auch als Bausatz erhältlich 

Apple = reg. Warenzeichen der 
Apple Computer Inc. California, USA 


ATARI 600 XL DM 395,- Speichererweit. DM 298,- 
für ATARI 800 XL DM 648,- Floppy 798,- 
Centronic-Interface incl. Kabel DM 248,- Recorder DM 125,- 
Telefonmodemanschluß sowie umfangreiche Spiel- und 
Anwendersoftware auf Anfrage 


















